Metrics for Distance on a great circle

analyze1.4s (2.8%)

Algorithm

1×

Search

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

Compiler

Compiled 71 to 27 computations (62% saved)

Precisions

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

ival-mult: 256.0ms (27.2% of total)

ival-cos: 194.0ms (20.6% of total)

ival-sin: 103.0ms (10.9% of total)

ival-sub: 99.0ms (10.5% of total)

ival-pow: 83.0ms (8.8% of total)

ival-sqrt: 61.0ms (6.5% of total)

ival-div: 59.0ms (6.3% of total)

ival-atan2: 44.0ms (4.7% of total)

ival-add: 34.0ms (3.6% of total)

const: 6.0ms (0.6% of total)

backward-pass: 2.0ms (0.2% of total)

sample7.6s (15.3%)

Results

6.6s	7444×	1	valid
182.0ms	812×	0	valid

Precisions

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

ival-sin: 1.5s (25.3% of total)

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

ival-mult: 944.0ms (15.8% of total)

ival-sqrt: 494.0ms (8.3% of total)

ival-sub: 402.0ms (6.7% of total)

ival-pow: 331.0ms (5.5% of total)

ival-div: 331.0ms (5.5% of total)

backward-pass: 313.0ms (5.2% of total)

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

ival-add: 94.0ms (1.6% of total)

const: 26.0ms (0.4% of total)

Bogosity

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

Iter	Nodes	Cost
0	234	1374
1	546	1315
2	1423	1315
3	4236	1303
0	26	65
1	55	63
2	117	63
3	290	63
4	704	63
5	1433	63
6	3421	63
7	5443	63
8	6960	63
0	8086	63

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)

explain762.0ms (1.5%)

FPErrors

Click to see full error table

Ground Truth	Overpredictions	Example	Underpredictions	Example	Subexpression
73	125	(2.2096985602375198e-244 29614197717450070.0 -2.85129306835906e-118 -4.604576730548876e-301 -1.4371523926555126e+191)	0	-	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`
69	106	(1.8432258927769854e-255 -1.2739669878434492e+278 -2.5100747817703153e+249 5.991353556619552e+248 -6.657867049280653e-131)	0	-	`(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))`
10	1	(1.1493716923816465e-280 2.170795778465048e-282 -1.7923729796150125e+118 -1.8448373721407564e-105 3.855622671384706e-38)	3	(2.9395418991590615e+229 8.617010754163978e-107 -3.924838711743815e+173 -4.6584931336139635e-81 -3.723292559518127e-142)	`(-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))`
1	0	-	1	(2.8493814996219815e-87 -5.073314045557291e-295 -5.721168983026714e+249 -1.405844273100394e+31 -1.2718440087355836e-179)	`(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))`
1	0	-	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))))))`
0	0	-	0	-	`(cos.f64 phi1)`
0	0	-	0	-	`(-.f64 phi1 phi2)`
0	0	-	0	-	`(/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))`
0	0	-	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))))))))))
0	0	-	0	-	`#s(literal 2 binary64)`
0	0	-	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)))))))`
0	0	-	0	-	`(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))`
0	0	-	0	-	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
0	0	-	0	-	`phi1`
0	0	-	0	-	`(cos.f64 phi2)`
0	0	-	0	-	`lambda1`
0	0	-	0	-	`R`
0	0	-	0	-	`(-.f64 lambda1 lambda2)`
0	0	-	0	-	`(*.f64 (cos.f64 phi1) (cos.f64 phi2))`
0	0	-	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)))))))))
0	23	(5.309531131700504e+179 -4.0740164144927617e+192 3.6916788159307637e+214 1.3029923688500666e-260 -4.606850014219624e-79)	0	-	`(pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64))`
0	0	-	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))))))))
0	0	-	0	-	`phi2`
0	0	-	0	-	`#s(literal 1 binary64)`
0	0	-	0	-	`lambda2`
0	0	-	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

472.0ms	454×	1	valid
16.0ms	58×	0	valid

Compiler

Compiled 862 to 80 computations (90.7% saved)

Precisions

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

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

ival-mult: 65.0ms (19.6% of total)

ival-cos: 63.0ms (19% of total)

backward-pass: 22.0ms (6.6% of total)

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

ival-sub: 17.0ms (5.1% of total)

ival-div: 14.0ms (4.2% of total)

ival-pow: 13.0ms (3.9% of total)

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

ival-add: 5.0ms (1.5% of total)

const: 2.0ms (0.6% 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

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

Status

Accuracy

Program

▶

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

▶

61.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 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 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)

simplify181.0ms (0.4%)

Algorithm

1×	egg-herbie

Localize:

Found 8 expressions of interest:

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

Iter	Nodes	Cost
0	41	792
1	90	774
2	203	774
3	526	774
4	1167	774
5	2296	774
6	6542	774
0	8226	774

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

localize528.0ms (1.1%)

Localize:

Found 8 expressions of interest:

New	Metric	Score	Program
✓	accuracy	98.8%	(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64))))
✓	accuracy	76.8%	(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
✓	accuracy	75.6%	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))
✓	accuracy	75.6%	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
✓	accuracy	99.4%	(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
✓	accuracy	98.8%	(-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
✓	accuracy	76.8%	(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
✓	accuracy	75.6%	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))

Results

388.0ms	227×	1	valid
12.0ms	29×	0	valid

Compiler

Compiled 799 to 42 computations (94.7% saved)

Precisions

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

ival-cos: 57.0ms (20% of total)

ival-mult: 56.0ms (19.7% of total)

ival-sin: 47.0ms (16.5% of total)

ival-sub: 34.0ms (11.9% of total)

ival-atan2: 25.0ms (8.8% of total)

backward-pass: 24.0ms (8.4% of total)

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

ival-div: 12.0ms (4.2% of total)

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

ival-pow: 6.0ms (2.1% of total)

const: 1.0ms (0.4% of total)

series158.0ms (0.3%)

Counts

13 → 576

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 (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 (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

144 calls:

Time	Variable		Point	Expression
44.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))
7.0ms	phi1	@	-inf	(sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))
4.0ms	phi2	@	-inf	(* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))))
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)))))))))
3.0ms	lambda1	@	inf	(sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))

rewrite525.0ms (1.1%)

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)

Iter	Nodes	Cost
0	41	416
1	223	398
2	1936	388
0	11141	388

Stop Event

1×	iter limit
1×	node limit

Counts

13 → 232

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)))))
(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)))))
(+.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)))))))))

simplify557.0ms (1.1%)

Algorithm

1×	egg-herbie

Rules

7464×	`-lowering-.f32`
7464×	`-lowering-.f64`
3836×	`+-lowering-+.f64`
3836×	`+-lowering-+.f32`
1868×	`fma-lowering-fma.f32`

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	707	25470
1	2441	24860
0	8956	24860

Stop Event

1×	iter limit
1×	node limit

Counts

576 → 576

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

eval260.0ms (0.5%)

Compiler: Compiled 80282 to 3119 computations (96.1% saved)

prune323.0ms (0.6%)

Pruning

71 alts after pruning (71 fresh and 0 done)

	Pruned	Kept	Total
New	1037	71	1108
Fresh	0	0	0
Picked	2	0	2
Done	0	0	0
Total	1039	71	1110

Accuracy

64.5%

Counts

1110 → 71

Alt Table

Click to see full alt table

Status	Accuracy	Program
	55.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 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)))
	54.6%	(.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)))
	24.3%	(.f64 (atan2.f64 (/.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))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	30.1%	(.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 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.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.1%	(.f64 (atan2.f64 (/.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))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	54.4%	(.f64 (atan2.f64 (/.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)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -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.0%	(.f64 (atan2.f64 (+.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)) (.f64 (cos.f64 phi2) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (sin.f64 (.f64 lambda2 #s(literal -1/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)))
	54.7%	(.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)))
	58.0%	(.f64 (atan2.f64 (sqrt.f64 (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)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	54.2%	(.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)))
	55.0%	(.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)))
	43.3%	(.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 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)))
	62.5%	(.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)))
	62.5%	(.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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	62.5%	(.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)))
	50.1%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (+.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)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	48.7%	(.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)))
	48.8%	(.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 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 #s(literal -1/8 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 (sin.f64 (/.f64 (-.f64 phi1 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 (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)))
	45.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 (+.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)))
	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 (+.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)))
	39.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 #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.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	54.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 (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)))) (*.f64 R #s(literal 2 binary64)))
	61.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 (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 R #s(literal 2 binary64)))
▶	61.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 (-.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)))
	61.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 (-.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)))
	61.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 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (/.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)))))))))) (*.f64 R #s(literal 2 binary64)))
	61.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 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.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 R #s(literal 2 binary64)))
	50.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 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)))))) (*.f64 R #s(literal 2 binary64)))
	45.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 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)))
	49.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) (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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
▶	61.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 (-.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)))
	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 (-.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)))
	42.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 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))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	36.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 (-.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 (.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))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	36.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 #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.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	62.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 (-.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)))
	30.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 (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)))
▶	62.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 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.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.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 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (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 R #s(literal 2 binary64)))
	50.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	48.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)))
	45.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 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)))
	50.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 #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)))
	50.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 (cos.f64 phi2) (.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 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	48.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 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)))
	45.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)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -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 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.8%	(.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 lambda1 (+.f64 (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (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 (cos.f64 phi1) 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)))
	48.9%	(.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)))
	41.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 (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)))
	54.7%	(.f64 (atan2.f64 (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)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	54.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 (.f64 (+.f64 (cos.f64 (.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)))
▶	54.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 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	44.5%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 (.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 phi2) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (sin.f64 (.f64 lambda2 #s(literal -1/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)))) (pow.f64 (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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	45.3%	(.f64 (atan2.f64 (sqrt.f64 (+.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 (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)))
	46.5%	(.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 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -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 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 #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))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	54.7%	(.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)))
	61.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (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)))))))
	50.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (.f64 (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
	45.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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))))))))
	61.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))))))
	50.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 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
▶	45.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 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)))))))))
	50.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 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 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))))))))
	49.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 (.f64 (cos.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))))))))
	39.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (-.f64 (.f64 (.f64 (.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) lambda1)) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))
	43.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (+.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) (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)))))))))
	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 #s(literal 1/2 binary64) lambda1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	48.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 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 11188 to 5770 computations (48.4% saved)

simplify257.0ms (0.5%)

Algorithm

1×	egg-herbie

Localize:

Found 20 expressions of interest:

New	Metric	Score	Program
✓	cost-diff	0	(+.f64 (pow.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-diff	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 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))
✓	cost-diff	0	(atan2.f64 (sqrt.f64 (+.f64 (pow.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))))))
✓	cost-diff	0	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.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)))
✓	cost-diff	6720	(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))))
✓	cost-diff	6720	(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)))))
✓	cost-diff	6720	(atan2.f64 (sqrt.f64 (+.f64 (pow.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))))))
✓	cost-diff	6720	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.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)))
✓	cost-diff	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))))))
✓	cost-diff	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 #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)))))))
✓	cost-diff	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 #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))))))))
✓	cost-diff	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 #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)))))))))
✓	cost-diff	384	(+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.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-diff	384	(sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.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-diff	768	(atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.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-diff	768	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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-diff	0	(+.f64 (pow.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-diff	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 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))
✓	cost-diff	0	(atan2.f64 (sqrt.f64 (+.f64 (pow.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-diff	0	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.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

3800×	`-lowering-.f32`
3800×	`-lowering-.f64`
1630×	`+-lowering-+.f64`
1630×	`+-lowering-+.f32`
1306×	`fma-lowering-fma.f32`

Iterations

Useful iterations: 3 (0.0ms)

Iter	Nodes	Cost
0	105	2305
1	250	2263
2	661	2206
3	1934	2163
4	6963	2163
0	8003	2163

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

Localize:

Found 20 expressions of interest:

New	Metric	Score	Program
✓	accuracy	98.8%	(+.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))))
✓	accuracy	76.8%	(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
✓	accuracy	75.6%	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
✓	accuracy	75.6%	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))
✓	accuracy	76.9%	(cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))
✓	accuracy	76.8%	(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
✓	accuracy	75.6%	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
✓	accuracy	75.6%	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))
✓	accuracy	99.0%	(-.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)))))
✓	accuracy	76.8%	(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
✓	accuracy	76.8%	(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
✓	accuracy	75.6%	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
✓	accuracy	84.3%	(+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64))
✓	accuracy	78.3%	(-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))
✓	accuracy	76.9%	(cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))
✓	accuracy	75.5%	(cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64)))
✓	accuracy	98.8%	(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64))))
✓	accuracy	76.8%	(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
✓	accuracy	75.6%	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
✓	accuracy	75.6%	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))

Results

1.3s	254×	1	valid
3.0ms	2×	0	valid

Compiler

Compiled 2383 to 105 computations (95.6% saved)

Precisions

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

ival-sin: 232.0ms (24% of total)

ival-cos: 224.0ms (23.2% of total)

ival-mult: 144.0ms (14.9% of total)

backward-pass: 89.0ms (9.2% of total)

ival-atan2: 78.0ms (8.1% of total)

ival-div: 59.0ms (6.1% of total)

ival-sub: 47.0ms (4.9% of total)

ival-sqrt: 29.0ms (3% of total)

ival-add: 25.0ms (2.6% of total)

ival-pow: 24.0ms (2.5% of total)

compiled-spec: 11.0ms (1.1% of total)

ival-neg: 2.0ms (0.2% of total)

const: 2.0ms (0.2% of total)

series405.0ms (0.8%)

Counts

29 → 1248

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 (* 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 (* 1/2 (- phi1 phi2))) 2) (* (pow (sin (* 1/2 lambda1)) 2) (* (cos phi2) (cos phi1)))))))))>
#<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 (* 1/2 (- phi1 phi2))) 2) (* (pow (sin (* 1/2 lambda1)) 2) (* (cos phi2) (cos phi1))))))))>
#<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 (* 1/2 (- phi1 phi2))) 2) (* (pow (sin (* 1/2 lambda1)) 2) (* (cos phi2) (cos phi1)))))))>
#<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 (+ (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) -2))) (sin (/ (- lambda1 lambda2) 2))) (neg (- (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) 1))))) (* R 2))>
#<alt (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt (+ (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) -2))) (sin (/ (- lambda1 lambda2) 2))) (neg (- (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) 1)))))>
#<alt (sqrt (+ (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) -2))) (sin (/ (- lambda1 lambda2) 2))) (neg (- (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) 1))))>
#<alt (+ (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) -2))) (sin (/ (- lambda1 lambda2) 2))) (neg (- (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) 1)))>
#<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 2)) (cos (/ lambda2 2))) (* (cos (/ lambda1 2)) (sin (/ 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 2)) (cos (/ lambda2 2))) (* (cos (/ lambda1 2)) (sin (/ lambda2 2)))) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 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 (* 2 (/ (- phi1 phi2) 2)))>
#<alt (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2)))))>
#<alt (+ (cos (* (- lambda1 lambda2) 1)) -1)>
#<alt (sin (* 1/2 (- phi1 phi2)))>
#<alt (- 1 (+ (pow (sin (* 1/2 (- phi1 phi2))) 2) (* (pow (sin (* 1/2 lambda1)) 2) (* (cos phi2) (cos phi1)))))>
#<alt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (- (* (sin (/ lambda1 2)) (cos (/ lambda2 2))) (* (cos (/ lambda1 2)) (sin (/ 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) (* (sin (* -1/2 (- lambda1 lambda2))) (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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 (* 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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 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 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 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 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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 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 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 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 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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 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 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 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 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<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/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<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/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<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/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<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/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<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/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<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/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<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/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<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/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<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/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<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/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<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/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<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/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<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/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<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/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<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/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<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/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<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/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<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/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<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/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<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/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<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/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<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/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<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/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<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/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<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/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<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/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<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/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<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/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<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/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<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/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<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/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<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/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))))))))>
#<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/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))))))))>
#<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/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))))))))>
#<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/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))))))))>
#<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/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<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/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<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/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<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/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<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/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<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/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<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/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<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/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<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/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))))))))>
#<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/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))))))))>
#<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/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))))))))>
#<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/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))))))))>
#<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/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<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/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<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/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<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/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<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/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<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/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<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/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<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/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<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/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<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/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<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/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<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/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))>
#<alt (+ (sqrt (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))) (* -1/4 (* (* phi1 (sin (neg phi2))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<alt (+ (sqrt (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))) (* phi1 (+ (* -1/4 (* (sin (neg phi2)) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))) (* 1/2 (* (* phi1 (- (+ (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (* -1/4 (cos (neg phi2)))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))))>
#<alt (+ (sqrt (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))) (* phi1 (+ (* -1/4 (* (sin (neg phi2)) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))) (- (+ (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (* -1/4 (cos (neg phi2)))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))))) (* 1/2 (* (* phi1 (- (* 1/12 (sin (neg phi2))) (* -1/4 (/ (* (sin (neg phi2)) (- (+ (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (* -1/4 (cos (neg phi2)))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))) (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))>
#<alt (+ (sqrt (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))) (* 1/4 (* (* phi2 (sin phi1)) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<alt (+ (sqrt (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))) (* phi2 (+ (* 1/4 (* (sin phi1) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))) (* 1/2 (* (* phi2 (- (+ (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (* -1/4 (cos phi1))) (* 1/16 (/ (pow (sin phi1) 2) (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))))>
#<alt (+ (sqrt (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))) (* phi2 (+ (* 1/4 (* (sin phi1) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))) (- (+ (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (* -1/4 (cos phi1))) (* 1/16 (/ (pow (sin phi1) 2) (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))))) (* 1/2 (* (* phi2 (- (* -1/12 (sin phi1)) (* 1/4 (/ (* (sin phi1) (- (+ (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (* -1/4 (cos phi1))) (* 1/16 (/ (pow (sin phi1) 2) (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))) (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))>
#<alt (+ (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (* 1/2 (* (* 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)))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))))))>
#<alt (+ (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (* lambda1 (+ (* 1/2 (* (* 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))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))) 2))) (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))))))))>
#<alt (+ (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (* lambda1 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -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))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))) 2))) (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))))))) (* 1/2 (* (* 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))))))))) (* 1/2 (/ (* (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) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))) 2))) (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))))))) (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))))))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1))))))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1))))))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1))))))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1))))))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))>
#<alt (+ (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* 1/2 (* (* 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)))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))))))>
#<alt (+ (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* lambda2 (+ (* 1/2 (* (* 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))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))) 2))) (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))))))))>
#<alt (+ (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* lambda2 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -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))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))) 2))) (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))))))) (* 1/2 (* (* 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))))))))) (* 1/2 (/ (* (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) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))) 2))) (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))))))) (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))))))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2))))))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2))))))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2))))))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2))))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))>
#<alt (+ 1/2 (+ (* -1/2 (* phi1 (sin (neg phi2)))) (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (+ (* phi1 (+ (* -1/2 (sin (neg phi2))) (* phi1 (+ (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (* -1/4 (cos (neg phi2))))))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (+ (* phi1 (+ (* -1/2 (sin (neg phi2))) (* phi1 (+ (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (cos (neg phi2))) (* 1/12 (* phi1 (sin (neg phi2))))))))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos phi1)) (+ (* 1/2 (* phi2 (sin phi1))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos phi1)) (+ (* phi2 (+ (* 1/2 (sin phi1)) (* phi2 (+ (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (* -1/4 (cos phi1)))))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos phi1)) (+ (* phi2 (+ (* 1/2 (sin phi1)) (* phi2 (+ (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (cos phi1)) (* -1/12 (* phi2 (sin phi1)))))))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (+ (* 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))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (+ (* 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))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (+ (* 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))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (+ (* 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))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (+ (* 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))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (+ (* 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))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))))>
#<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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (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 (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 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 (- (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 (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)) 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)) 2)) (pow (sin (* -1/2 phi2)) 2)))>
#<alt (- (+ 1 (* phi1 (- (* -1 (* 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 (- (+ 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)) 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 (- 1 (+ (* (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)) 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 (+ (* (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)) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))>
#<alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))>
#<alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))>
#<alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))>
#<alt (- 1 (+ (* (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 (- (+ 1 (* phi2 (- (* -1 (* 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 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 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)) 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)) 2)) (pow (sin (* 1/2 phi1)) 2)))>
#<alt (- 1 (+ (* (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)) 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 (+ (* (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)) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))>
#<alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))>
#<alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))>
#<alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))>
#<alt (- 1 (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* -1/4 (* (pow lambda1 2) (* (cos phi1) (cos phi2))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (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 (- (+ 1 (* (pow lambda1 2) (- (* (pow lambda1 2) (- (* -1/1440 (* (pow lambda1 2) (* (cos phi1) (cos phi2)))) (* -1/48 (* (cos phi1) (cos phi2))))) (* 1/4 (* (cos phi1) (cos phi2)))))) (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 (+ (* (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)) 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 (+ (* (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)) 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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))>
#<alt (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 phi2)) 2))>
#<alt (- (+ 1 (+ (* phi1 (- (* phi1 (- (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 phi2)) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 phi1)) 2))>
#<alt (- (+ 1 (+ (* phi2 (- (* phi2 (- (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 phi1)) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))>
#<alt (- (+ 1 (* -1 (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda2)) 2))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (+ (* -1 (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda2)) 2)))) (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (+ (* -1 (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda2)) 2)))) (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (cos (* 1/2 lambda2)) 2)) (* 1/4 (pow (sin (* 1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (+ (* -1 (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda2)) 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 (cos (* 1/2 lambda2)) 2)) (* 1/4 (pow (sin (* 1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>
#<alt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))>

Calls

312 calls:

Time	Variable		Point	Expression
52.0ms	lambda1	@	-inf	(+ 1 (- (* (* (cos phi1) (cos phi2)) (* (- (* (sin (/ lambda1 2)) (cos (/ lambda2 2))) (* (cos (/ lambda1 2)) (sin (/ lambda2 2)))) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2)))
20.0ms	phi1	@	0	(sqrt (+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2)))
15.0ms	phi1	@	-inf	(* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (* 1/2 (- phi1 phi2))) 2) (* (pow (sin (* 1/2 lambda1)) 2) (* (cos phi2) (cos phi1)))))))))
10.0ms	lambda2	@	inf	(+ 1 (- (* (* (cos phi1) (cos phi2)) (* (- (* (sin (/ lambda1 2)) (cos (/ lambda2 2))) (* (cos (/ lambda1 2)) (sin (/ lambda2 2)))) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2)))
9.0ms	R	@	0	(* (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))

rewrite430.0ms (0.9%)

Algorithm

1×	batch-egg-rewrite

Rules

2942×	`-lowering-.f32`
2942×	`-lowering-.f64`
2148×	`fma-lowering-fma.f32`
2148×	`fma-lowering-fma.f64`
2050×	`/-lowering-/.f32`

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	105	1023
1	619	837
2	5963	837
0	8547	837

Stop Event

1×	iter limit
1×	node limit

Counts

29 → 479

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))
(* 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 (* 1/2 (- phi1 phi2))) 2) (* (pow (sin (* 1/2 lambda1)) 2) (* (cos phi2) (cos phi1)))))))))
(* 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 (* 1/2 (- phi1 phi2))) 2) (* (pow (sin (* 1/2 lambda1)) 2) (* (cos phi2) (cos phi1))))))))
(atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (* 1/2 (- phi1 phi2))) 2) (* (pow (sin (* 1/2 lambda1)) 2) (* (cos phi2) (cos phi1)))))))
(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 (+ (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) -2))) (sin (/ (- lambda1 lambda2) 2))) (neg (- (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) 1))))) (* R 2))
(atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt (+ (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) -2))) (sin (/ (- lambda1 lambda2) 2))) (neg (- (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) 1)))))
(sqrt (+ (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) -2))) (sin (/ (- lambda1 lambda2) 2))) (neg (- (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) 1))))
(+ (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) -2))) (sin (/ (- lambda1 lambda2) 2))) (neg (- (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 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 2)) (cos (/ lambda2 2))) (* (cos (/ lambda1 2)) (sin (/ 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 2)) (cos (/ lambda2 2))) (* (cos (/ lambda1 2)) (sin (/ lambda2 2)))) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 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 (* 2 (/ (- phi1 phi2) 2)))
(- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2)))))
(+ (cos (* (- lambda1 lambda2) 1)) -1)
(sin (* 1/2 (- phi1 phi2)))
(- 1 (+ (pow (sin (* 1/2 (- phi1 phi2))) 2) (* (pow (sin (* 1/2 lambda1)) 2) (* (cos phi2) (cos phi1)))))
(+ 1 (- (* (* (cos phi1) (cos phi2)) (* (- (* (sin (/ lambda1 2)) (cos (/ lambda2 2))) (* (cos (/ lambda1 2)) (sin (/ lambda2 2)))) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2)))

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

simplify888.0ms (1.8%)

Algorithm

1×	egg-herbie

Rules

6568×	`-lowering-.f32`
6568×	`-lowering-.f64`
4252×	`+-lowering-+.f64`
4252×	`+-lowering-+.f32`
1650×	`sum3-define`

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	1519	57615
1	5166	56608
0	9109	56608

Stop Event

1×	iter limit
1×	node limit

Counts

1248 → 1248

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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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)))))))
(* 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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 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 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 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 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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 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 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 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 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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 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 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 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 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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)) 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/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 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/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 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/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 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/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 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/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 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/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 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/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 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/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 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/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 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/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))))))))
(* 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/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))))))))
(* 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/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))))))))
(* 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/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 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/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))))))))
(* 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/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))))))))
(* 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/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))))))))
(* 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/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))) (* -1/4 (* (* phi1 (sin (neg phi2))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))) (* phi1 (+ (* -1/4 (* (sin (neg phi2)) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))) (* 1/2 (* (* phi1 (- (+ (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (* -1/4 (cos (neg phi2)))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))) (* phi1 (+ (* -1/4 (* (sin (neg phi2)) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))) (- (+ (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (* -1/4 (cos (neg phi2)))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))))) (* 1/2 (* (* phi1 (- (* 1/12 (sin (neg phi2))) (* -1/4 (/ (* (sin (neg phi2)) (- (+ (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (* -1/4 (cos (neg phi2)))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))) (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))) (* 1/4 (* (* phi2 (sin phi1)) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))) (* phi2 (+ (* 1/4 (* (sin phi1) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))) (* 1/2 (* (* phi2 (- (+ (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (* -1/4 (cos phi1))) (* 1/16 (/ (pow (sin phi1) 2) (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))) (* phi2 (+ (* 1/4 (* (sin phi1) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))) (- (+ (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (* -1/4 (cos phi1))) (* 1/16 (/ (pow (sin phi1) 2) (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))))) (* 1/2 (* (* phi2 (- (* -1/12 (sin phi1)) (* 1/4 (/ (* (sin phi1) (- (+ (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (* -1/4 (cos phi1))) (* 1/16 (/ (pow (sin phi1) 2) (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))) (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (* 1/2 (* (* 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)))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (* lambda1 (+ (* 1/2 (* (* 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))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))) 2))) (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (* lambda1 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -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))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))) 2))) (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))))))) (* 1/2 (* (* 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))))))))) (* 1/2 (/ (* (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) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))) 2))) (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))))))) (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1))))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1))))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1))))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1))))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* 1/2 (* (* 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)))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* lambda2 (+ (* 1/2 (* (* 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))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))) 2))) (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* lambda2 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -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))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))) 2))) (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))))))) (* 1/2 (* (* 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))))))))) (* 1/2 (/ (* (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) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))) 2))) (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))))))) (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2))))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2))))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2))))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2))))))))))
(+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))
(+ 1/2 (+ (* -1/2 (* phi1 (sin (neg phi2)))) (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+ 1/2 (+ (* 1/2 (cos (neg phi2))) (+ (* phi1 (+ (* -1/2 (sin (neg phi2))) (* phi1 (+ (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (* -1/4 (cos (neg phi2))))))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+ 1/2 (+ (* 1/2 (cos (neg phi2))) (+ (* phi1 (+ (* -1/2 (sin (neg phi2))) (* phi1 (+ (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (cos (neg phi2))) (* 1/12 (* phi1 (sin (neg phi2))))))))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))
(+ 1/2 (+ (* 1/2 (cos phi1)) (+ (* 1/2 (* phi2 (sin phi1))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+ 1/2 (+ (* 1/2 (cos phi1)) (+ (* phi2 (+ (* 1/2 (sin phi1)) (* phi2 (+ (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (* -1/4 (cos phi1)))))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+ 1/2 (+ (* 1/2 (cos phi1)) (+ (* phi2 (+ (* 1/2 (sin phi1)) (* phi2 (+ (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (cos phi1)) (* -1/12 (* phi2 (sin phi1)))))))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (+ (* 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))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (+ (* 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))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (+ (* 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))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (+ (* 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))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (+ (* 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))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (+ (* 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))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (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))))
(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 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)))))
(- (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)
(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)) 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)) 2)) (pow (sin (* -1/2 phi2)) 2)))
(- (+ 1 (* phi1 (- (* -1 (* 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)))
(- (+ 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)) 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)))
(- 1 (+ (* (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)) 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 (+ (* (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)) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(- 1 (+ (* (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)))
(- (+ 1 (* phi2 (- (* -1 (* 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 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 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)) 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)) 2)) (pow (sin (* 1/2 phi1)) 2)))
(- 1 (+ (* (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)) 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 (+ (* (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)) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(- 1 (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* -1/4 (* (pow lambda1 2) (* (cos phi1) (cos phi2))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (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))
(- (+ 1 (* (pow lambda1 2) (- (* (pow lambda1 2) (- (* -1/1440 (* (pow lambda1 2) (* (cos phi1) (cos phi2)))) (* -1/48 (* (cos phi1) (cos phi2))))) (* 1/4 (* (cos phi1) (cos phi2)))))) (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 (+ (* (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)) 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 (+ (* (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)) 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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 phi2)) 2))
(- (+ 1 (+ (* phi1 (- (* phi1 (- (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 phi2)) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 phi1)) 2))
(- (+ 1 (+ (* phi2 (- (* phi2 (- (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 phi1)) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(- (+ 1 (* -1 (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda2)) 2))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (+ (* -1 (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda2)) 2)))) (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (+ (* -1 (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda2)) 2)))) (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (cos (* 1/2 lambda2)) 2)) (* 1/4 (pow (sin (* 1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (+ (* -1 (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda2)) 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 (cos (* 1/2 lambda2)) 2)) (* 1/4 (pow (sin (* 1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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)))))))
(* 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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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)))))))
(* 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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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)))))))
(* 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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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)))))))
(* 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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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)))))))
(* 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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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)))))))
(* 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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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)))))))
(* 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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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)))))))
(* 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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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)))))))
(* 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 (+.f64 #s(literal 1 binary64) (.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 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (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 (+.f64 #s(literal 1 binary64) (.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 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (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 (+.f64 #s(literal 1 binary64) (.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 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (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 (+.f64 #s(literal 1 binary64) (.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 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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)))))))
(* 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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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)))))))
(* 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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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)))))))
(* 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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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)))))))
(* 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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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))))))
(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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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))))))
(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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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))))))
(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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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))))))
(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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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))))))
(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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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))))))
(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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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))))))
(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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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))))))
(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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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))))))
(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 (+.f64 #s(literal 1 binary64) (.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 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (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 (+.f64 #s(literal 1 binary64) (.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 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (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 (+.f64 #s(literal 1 binary64) (.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 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (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 (+.f64 #s(literal 1 binary64) (.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 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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))))))
(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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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))))))
(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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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))))))
(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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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))))))
(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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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))))))
(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 (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) (-.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 (* (* 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 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 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 (.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 (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) (-.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/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 (.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) (-.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 (.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 (.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 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 (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 (.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)))))) (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 (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 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 (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 (.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 (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 (.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 (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 (.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 (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 lambda2 #s(literal -1/2 binary64))) #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 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 (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 lambda2 #s(literal -1/2 binary64))) #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 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 (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 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (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 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (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 (.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 (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 lambda2 #s(literal -1/2 binary64))) #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 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 (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 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 (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 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (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 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (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 (.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 (cos.f64 phi1) (.f64 (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 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (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 (.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 (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 lambda2 #s(literal -1/2 binary64))) #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 lambda2 #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 (.f64 (cos.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 (.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 (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 (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 (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 (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 #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))) (.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 (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 (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 (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 #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))) (.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 (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 (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 #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))) (.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 (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 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 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #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))))) (* (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 (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) (-.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)))))))))
(+ (* 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 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) (-.f64 lambda1 lambda2))) #s(literal 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 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 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 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 (.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 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 (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 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 (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 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 (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 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 (.f64 lambda1 (cos.f64 phi1)) (.f64 (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 (.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) (.f64 (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 (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 (.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 (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 (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 (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 (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 (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 (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) (neg.f64 (.f64 phi1 (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 (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 #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 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 (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 (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 #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 (neg.f64 (.f64 (sin.f64 phi2) #s(literal 1/12 binary64))) (.f64 #s(literal 1/4 binary64) (neg.f64 (.f64 (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 (.f64 #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.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 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 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 #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) (- 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 #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 (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 (sin.f64 phi1) #s(literal -1/12 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 #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 #s(literal 1/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 (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 #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 (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 #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 #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 (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 #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 (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/4 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda2))) (.f64 (/.f64 (.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 #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/16 binary64)))))))))
(+ (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 #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 (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 #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 (.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 #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/16 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))))))))) (.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 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda2))) (.f64 (/.f64 (.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 #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/16 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 (* -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 (.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 (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 #s(literal 1/4 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (.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 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)))))) #s(literal -1/16 binary64)))))))))
(+ (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 (/.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)))))) #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 #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 #s(literal 1/4 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (.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 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)))))) #s(literal -1/16 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 (* -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 (neg.f64 (.f64 phi1 (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 #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 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 #s(literal -1/12 binary64) phi1) (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) (.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 (.f64 phi2 #s(literal -1/2 binary64)) (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 #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 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 #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 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 #s(literal 1/12 binary64) phi2) (sin.f64 phi1)) (.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 #s(literal 1/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 (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 (.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 #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 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 (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 #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 #s(literal -1/2 binary64) (.f64 (.f64 lambda2 (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 (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 #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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 (.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 (.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 (.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 (.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 (.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 (.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 (.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 (.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 (.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 (.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 (.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 (.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 (.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 (.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 (.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 (.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 (.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 (.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 (.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 (.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 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)) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 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 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #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))))))))
(* 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)) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 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 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #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))))))))
(* 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)) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 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 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #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))))))))
(* 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)) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 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 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #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))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 (.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 (.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 (.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 (.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 (.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 (.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 (.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 (.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 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)) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 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)) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 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)) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 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)) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 (.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 (.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 (.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 (.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 (.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 (.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 (.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 (.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 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 lambda1)) 2))) (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 (.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 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 lambda1)) 2))) (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 (.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 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 lambda1)) 2))) (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 (.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 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 lambda1)) 2))) (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 (.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 (.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 (.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 (.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 (.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 (.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 (.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 (.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 (.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 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)) 2))) (pow (sin (* 1/2 (- phi1 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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 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)) 2))) (pow (sin (* 1/2 (- phi1 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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 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)) 2))) (pow (sin (* 1/2 (- phi1 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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 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)) 2))) (pow (sin (* 1/2 (- phi1 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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 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)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 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)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 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)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 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)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 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)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 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)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 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)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 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)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 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)) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #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))))))))
(* 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)) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #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))))))))
(* 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)) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #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))))))))
(* 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)) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #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))))))))
(* 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)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 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)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 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)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 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)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 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)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 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)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 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)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 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)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 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)) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 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)) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 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)) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 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)) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 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)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 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)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 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)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 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)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 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)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 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)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 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)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 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)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 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 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 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 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 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 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 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 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 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)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 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)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 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)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 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)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 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)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 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)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 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)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 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)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 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)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 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)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 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)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (-.f64 #s(literal 1 binary64) (.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))))))
(* 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)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (-.f64 #s(literal 1 binary64) (.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))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (-.f64 #s(literal 1 binary64) (.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)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (-.f64 #s(literal 1 binary64) (.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)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (-.f64 #s(literal 1 binary64) (.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)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (-.f64 #s(literal 1 binary64) (.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)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (-.f64 #s(literal 1 binary64) (.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)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (-.f64 #s(literal 1 binary64) (.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)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (-.f64 #s(literal 1 binary64) (.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)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (-.f64 #s(literal 1 binary64) (.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)))))
(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)) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 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 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #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)))))))
(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)) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 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 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #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)))))))
(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)) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 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 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #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)))))))
(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)) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 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 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #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)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (-.f64 #s(literal 1 binary64) (.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)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (-.f64 #s(literal 1 binary64) (.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)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (-.f64 #s(literal 1 binary64) (.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)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (-.f64 #s(literal 1 binary64) (.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)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (-.f64 #s(literal 1 binary64) (.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)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (-.f64 #s(literal 1 binary64) (.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)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (-.f64 #s(literal 1 binary64) (.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)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (-.f64 #s(literal 1 binary64) (.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)))))
(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)) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 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 (-.f64 #s(literal 1 binary64) (.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)))))
(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)) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 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 (-.f64 #s(literal 1 binary64) (.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)))))
(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)) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 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 (-.f64 #s(literal 1 binary64) (.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)))))
(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)) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 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 (-.f64 #s(literal 1 binary64) (.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)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (-.f64 #s(literal 1 binary64) (.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)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (-.f64 #s(literal 1 binary64) (.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)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (-.f64 #s(literal 1 binary64) (.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)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (-.f64 #s(literal 1 binary64) (.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)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (-.f64 #s(literal 1 binary64) (.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)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (-.f64 #s(literal 1 binary64) (.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)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (-.f64 #s(literal 1 binary64) (.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)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (-.f64 #s(literal 1 binary64) (.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)))))
(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 lambda1)) 2))) (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 (.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 (-.f64 #s(literal 1 binary64) (.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)))))
(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 lambda1)) 2))) (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 (.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 (-.f64 #s(literal 1 binary64) (.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)))))
(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 lambda1)) 2))) (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 (.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 (-.f64 #s(literal 1 binary64) (.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)))))
(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 lambda1)) 2))) (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 (.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 (-.f64 #s(literal 1 binary64) (.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)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (-.f64 #s(literal 1 binary64) (.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)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (-.f64 #s(literal 1 binary64) (.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)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (-.f64 #s(literal 1 binary64) (.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)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (-.f64 #s(literal 1 binary64) (.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)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (-.f64 #s(literal 1 binary64) (.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)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (-.f64 #s(literal 1 binary64) (.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)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (-.f64 #s(literal 1 binary64) (.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)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (-.f64 #s(literal 1 binary64) (.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)))))
(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)) 2))) (pow (sin (* 1/2 (- phi1 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 (-.f64 #s(literal 1 binary64) (.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)))))
(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)) 2))) (pow (sin (* 1/2 (- phi1 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 (-.f64 #s(literal 1 binary64) (.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)))))
(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)) 2))) (pow (sin (* 1/2 (- phi1 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 (-.f64 #s(literal 1 binary64) (.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)))))
(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)) 2))) (pow (sin (* 1/2 (- phi1 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 (-.f64 #s(literal 1 binary64) (.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 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 (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) (-.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 (* (* 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 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 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 (.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 (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) (-.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/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 (.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) (-.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 (.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 (.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 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 (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 (.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)))))) (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 (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 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 (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 (.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 (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 (.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 (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 (.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 (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 lambda2 #s(literal -1/2 binary64))) #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 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 (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 lambda2 #s(literal -1/2 binary64))) #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 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 (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 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (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 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (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 (.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 (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 lambda2 #s(literal -1/2 binary64))) #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 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 (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 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 (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 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (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 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (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 (.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 (cos.f64 phi1) (.f64 (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 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (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 (.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 (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 lambda2 #s(literal -1/2 binary64))) #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 lambda2 #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 (.f64 (cos.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 (.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 (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 (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 (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 (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 #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))) (.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 (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 (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 (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 #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))) (.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 (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 (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 #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))) (.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 (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))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 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/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 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/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 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/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 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/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 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/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 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/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 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/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 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/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 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/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))))))))
(.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 (+.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 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))))))))
(* 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/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))))))))
(.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 (+.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 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))))))))
(* 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/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))))))))
(.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 (+.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 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))))))))
(* 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/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))))))))
(.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 (+.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 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 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/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))))))))
(.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 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/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))))))))
(.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 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/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))))))))
(.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 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/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))))))))
(.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))))))
(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 (+.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 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))))))
(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 (+.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 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))))))
(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 (+.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 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))))))
(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 (+.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 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) #s(literal 1/2 binary64))) (.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))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))) (* -1/4 (* (* phi1 (sin (neg phi2))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(+.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) #s(literal 1/2 binary64))) (.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 (.f64 #s(literal -1/4 binary64) (neg.f64 (.f64 phi1 (sin.f64 phi2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) #s(literal 1/2 binary64))) (.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)))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))) (* phi1 (+ (* -1/4 (* (sin (neg phi2)) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))) (* 1/2 (* (* phi1 (- (+ (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (* -1/4 (cos (neg phi2)))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))))
(+.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) #s(literal 1/2 binary64))) (.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 (neg.f64 (.f64 #s(literal -1/4 binary64) (sin.f64 phi2))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) #s(literal 1/2 binary64))) (.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 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) #s(literal 1/2 binary64))) (.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 (+.f64 (.f64 (cos.f64 phi2) #s(literal -1/4 binary64)) (.f64 #s(literal -1/2 binary64) (.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 (.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 (cos.f64 phi2) #s(literal 1/2 binary64))) (.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)))))))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))) (* phi1 (+ (* -1/4 (* (sin (neg phi2)) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))) (- (+ (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (* -1/4 (cos (neg phi2)))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))))) (* 1/2 (* (* phi1 (- (* 1/12 (sin (neg phi2))) (* -1/4 (/ (* (sin (neg phi2)) (- (+ (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (* -1/4 (cos (neg phi2)))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))) (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))))))
(+.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) #s(literal 1/2 binary64))) (.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 (neg.f64 (.f64 #s(literal -1/4 binary64) (sin.f64 phi2))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) #s(literal 1/2 binary64))) (.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 #s(literal 1/2 binary64) (+.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) #s(literal 1/2 binary64))) (.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 (+.f64 (.f64 (cos.f64 phi2) #s(literal -1/4 binary64)) (.f64 #s(literal -1/2 binary64) (.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 (.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 (cos.f64 phi2) #s(literal 1/2 binary64))) (.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 (neg.f64 (.f64 (sin.f64 phi2) #s(literal 1/12 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi2)) (-.f64 (+.f64 (.f64 (cos.f64 phi2) #s(literal -1/4 binary64)) (.f64 #s(literal -1/2 binary64) (.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 (.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 (cos.f64 phi2) #s(literal 1/2 binary64))) (.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 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) #s(literal 1/2 binary64))) (.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)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) #s(literal 1/2 binary64))) (.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)))))))))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (.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)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (.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)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (.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)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (.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)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))) (.f64 (cos.f64 phi1) (.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)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))) (.f64 (cos.f64 phi1) (.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)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))) (.f64 (cos.f64 phi1) (.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)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))) (.f64 (cos.f64 phi1) (.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)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))) (* 1/4 (* (* phi2 (sin phi1)) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(+.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 phi2 (sin.f64 phi1))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))) (* phi2 (+ (* 1/4 (* (sin phi1) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))) (* 1/2 (* (* phi2 (- (+ (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (* -1/4 (cos phi1))) (* 1/16 (/ (pow (sin phi1) 2) (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))))
(+.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 phi2 (+.f64 (.f64 (.f64 #s(literal 1/4 binary64) (sin.f64 phi1)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))) (.f64 phi2 (-.f64 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/4 binary64)) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (/.f64 (.f64 #s(literal 1/16 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))) (* phi2 (+ (* 1/4 (* (sin phi1) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))) (- (+ (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (* -1/4 (cos phi1))) (* 1/16 (/ (pow (sin phi1) 2) (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))))) (* 1/2 (* (* phi2 (- (* -1/12 (sin phi1)) (* 1/4 (/ (* (sin phi1) (- (+ (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (* -1/4 (cos phi1))) (* 1/16 (/ (pow (sin phi1) 2) (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))) (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))))))
(+.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 phi2 (+.f64 (.f64 (.f64 #s(literal 1/4 binary64) (sin.f64 phi1)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))))) (.f64 phi2 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))) (-.f64 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/4 binary64)) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (/.f64 (.f64 #s(literal 1/16 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))))) (.f64 phi2 (.f64 (+.f64 (.f64 (sin.f64 phi1) #s(literal -1/12 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/4 binary64)) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (/.f64 (.f64 #s(literal 1/16 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))))) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))))))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (.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)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (.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)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (.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)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (.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)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (.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)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (.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)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (.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)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (.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)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (.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)))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (* 1/2 (* (* 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)))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (.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 #s(literal 1/2 binary64) (.f64 (.f64 lambda1 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (.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)))))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (* lambda1 (+ (* 1/2 (* (* 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))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))) 2))) (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (.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 #s(literal 1/2 binary64) (+.f64 (.f64 lambda1 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (.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 (.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 #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 #s(literal -1/2 binary64) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))))) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (.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 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (.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))))))))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (* lambda1 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -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))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))) 2))) (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))))))) (* 1/2 (* (* 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))))))))) (* 1/2 (/ (* (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) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))) 2))) (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))))))) (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (.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 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (.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 #s(literal 1/2 binary64) (+.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (.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 (.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 #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 #s(literal -1/2 binary64) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))))) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (.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 (.f64 (cos.f64 phi1) (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/16 binary64)) (+.f64 (.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))) #s(literal -1/48 binary64)) (.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))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (+.f64 (.f64 (.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 #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 #s(literal -1/2 binary64) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))))) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (.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 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (.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))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (.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))))))))))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (.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)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (.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)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (.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)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (.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)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1))))))))))
(sqrt.f64 (+.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 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1))))))))))
(sqrt.f64 (+.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 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1))))))))))
(sqrt.f64 (+.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 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1))))))))))
(sqrt.f64 (+.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 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* 1/2 (* (* 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)))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.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)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64))))))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* lambda2 (+ (* 1/2 (* (* 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))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))) 2))) (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64)))))))) (.f64 lambda2 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 lambda2 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64))))))))) (+.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 #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) (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)))) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 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))) (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))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64))))))))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* lambda2 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -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))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))) 2))) (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))))))) (* 1/2 (* (* 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))))))))) (* 1/2 (/ (* (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) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))) 2))) (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))))))) (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64)))))))) (.f64 lambda2 (+.f64 (.f64 #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))) (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))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64))))))))))) (.f64 lambda2 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64))))))))) (+.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 #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) (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)))) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64))))))))))) (.f64 lambda2 (.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.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) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))))) (.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))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (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 (.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 #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) (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)))) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64)))))))))))) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64)))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64)))))))))))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (.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)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (.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)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (.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)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (.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)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2))))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (.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)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2))))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (.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)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2))))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (.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)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2))))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (.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)))))))
(+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) #s(literal 1/2 binary64))) (.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)))))
(+ 1/2 (+ (* -1/2 (* phi1 (sin (neg phi2)))) (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) phi1) (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) (.f64 (cos.f64 phi2) #s(literal 1/2 binary64))) (.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))))))
(+ 1/2 (+ (* 1/2 (cos (neg phi2))) (+ (* phi1 (+ (* -1/2 (sin (neg phi2))) (* phi1 (+ (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (* -1/4 (cos (neg phi2))))))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (cos.f64 phi2) #s(literal 1/2 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 (neg.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 phi2))) (.f64 phi1 (+.f64 (.f64 (cos.f64 phi2) #s(literal -1/4 binary64)) (.f64 #s(literal -1/2 binary64) (.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))))))))))))
(+ 1/2 (+ (* 1/2 (cos (neg phi2))) (+ (* phi1 (+ (* -1/2 (sin (neg phi2))) (* phi1 (+ (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (cos (neg phi2))) (* 1/12 (* phi1 (sin (neg phi2))))))))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) #s(literal 1/2 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 (neg.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 phi2))) (.f64 phi1 (+.f64 (.f64 #s(literal -1/2 binary64) (.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 (.f64 (cos.f64 phi2) #s(literal -1/4 binary64)) (neg.f64 (.f64 (.f64 #s(literal 1/12 binary64) phi1) (sin.f64 phi2))))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))
(+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))) (.f64 (cos.f64 phi1) (.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))))))
(+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))) (.f64 (cos.f64 phi1) (.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))))))
(+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))) (.f64 (cos.f64 phi1) (.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))))))
(+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))) (.f64 (cos.f64 phi1) (.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))))))
(+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(+ 1/2 (+ (* 1/2 (cos phi1)) (+ (* 1/2 (* phi2 (sin phi1))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (.f64 (.f64 phi2 #s(literal 1/2 binary64)) (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))
(+ 1/2 (+ (* 1/2 (cos phi1)) (+ (* phi2 (+ (* 1/2 (sin phi1)) (* phi2 (+ (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (* -1/4 (cos phi1)))))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) (+.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (.f64 phi2 (+.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 phi1)) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/4 binary64)) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))))))))
(+ 1/2 (+ (* 1/2 (cos phi1)) (+ (* phi2 (+ (* 1/2 (sin phi1)) (* phi2 (+ (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (cos phi1)) (* -1/12 (* phi2 (sin phi1)))))))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) (+.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (.f64 phi2 (+.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 phi1)) (.f64 phi2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/4 binary64)) (.f64 (.f64 #s(literal -1/12 binary64) phi2) (sin.f64 phi1)))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))
(+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))
(+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))
(+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))
(+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (.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))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (+ (* 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))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (+.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 #s(literal -1/2 binary64) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (+ (* 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))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (+.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 #s(literal -1/2 binary64) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (.f64 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)))))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (+ (* 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))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (+.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 #s(literal -1/2 binary64) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (.f64 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 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))) #s(literal -1/16 binary64)) (+.f64 (.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))) #s(literal -1/48 binary64)) (.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))))))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))))
(+.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 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))))
(+.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 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))))
(+.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 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))))
(+.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 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64)))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (+ (* 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))))))))
(+.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 (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/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))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (+ (* 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))))))))
(+.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 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 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))) (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))))))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (+ (* 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))))))))
(+.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 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 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))) (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 #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) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))))) (.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))))))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (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)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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 (.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)))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (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)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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 (.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)))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (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)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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 (.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)))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (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)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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 (.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)))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (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)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (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)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (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)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (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)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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 (.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)))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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 (.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)))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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 (.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)))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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 (.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)))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(sin (* 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)))
(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 #s(literal -1/8 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 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)))
(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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal -1/8 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 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #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 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #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)))
(- (+ 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 #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 #s(literal -1/2 binary64) (.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 #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 #s(literal -1/2 binary64) (.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 (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 #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 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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 (* (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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (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))))
(- (+ 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 (.f64 (cos.f64 phi1) (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 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 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (.f64 phi2 (+.f64 (.f64 phi2 (+.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (.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 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (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) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (.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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 #s(literal -1/2 binary64) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (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 #s(literal -1/2 binary64) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (.f64 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 (+.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)))) (.f64 lambda1 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (.f64 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 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))) #s(literal -1/16 binary64)) (+.f64 (.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))) #s(literal -1/48 binary64)) (.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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (+.f64 #s(literal 1 binary64) (.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 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (+.f64 #s(literal 1 binary64) (.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 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (+.f64 #s(literal 1 binary64) (.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 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (+.f64 #s(literal 1 binary64) (.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 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (+.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 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 (* (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 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))) (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 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))) (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 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))) (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 #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) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))))) (.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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 lambda2))) (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))))) (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))) (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 (*.f64 lambda2 (sin.f64 lambda1)) #s(literal -1/6 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 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 #s(literal 1/6 binary64) phi1) (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) (*.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 (.f64 #s(literal -1/6 binary64) phi2) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) #s(literal -1/2 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 (cos.f64 phi2) #s(literal -1/2 binary64)))
(- (+ 1/2 (* 1/2 (* phi1 (sin (neg phi2))))) (* 1/2 (cos (neg phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 phi1 #s(literal 1/2 binary64)) (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64))))
(- (+ 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) (sin.f64 phi2)))) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64))))
(- (+ 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 (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 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 (cos.f64 phi1) #s(literal -1/2 binary64)))
(- (+ 1/2 (* -1/2 (* phi2 (sin phi1)))) (* 1/2 (cos phi1)))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 phi2 #s(literal -1/2 binary64)) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64))))
(- (+ 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 (cos.f64 phi1) phi2)) (.f64 #s(literal -1/2 binary64) (sin.f64 phi1)))) (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64))))
(- (+ 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 (.f64 #s(literal 1/12 binary64) phi2) (sin.f64 phi1)) (.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 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))))
(- (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 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 lambda2))) (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))))) (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))) (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 (*.f64 lambda2 (sin.f64 lambda1)) #s(literal -1/6 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))
(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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal -1/8 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 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #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 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #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)))
(- 1 (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (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) lambda1)) #s(literal 2 binary64)))))
(- (+ 1 (* -1 (* 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 #s(literal 1 binary64) (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))) (+.f64 (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) lambda1)) #s(literal 2 binary64)))))
(- (+ 1 (* phi1 (- (* -1 (* 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 #s(literal 1 binary64) (-.f64 (.f64 phi1 (-.f64 (.f64 (-.f64 #s(literal 0 binary64) 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 (cos.f64 phi2) #s(literal -1/2 binary64)) (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))) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))) (+.f64 (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) lambda1)) #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)) 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 #s(literal 1 binary64) (-.f64 (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 (-.f64 #s(literal 0 binary64) 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))) (+.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 (cos.f64 phi2) #s(literal -1/2 binary64)) (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))) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))) (+.f64 (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) lambda1)) #s(literal 2 binary64))))))
(- 1 (+ (* (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 (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)))
(- 1 (+ (* (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 (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)))
(- 1 (+ (* (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 (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)))
(- 1 (+ (* (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 (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)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #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 (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2)))
(-.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)))))
(- (+ 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 #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 (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 (- (* -1 (* 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 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 phi2 (+.f64 (.f64 (-.f64 #s(literal 0 binary64) 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)))))) (+.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 (- (* 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)) 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)) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 phi2 (+.f64 (.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 0 binary64) 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)))))) (+.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 (+ (* (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 (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)))
(- 1 (+ (* (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 (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)))
(- 1 (+ (* (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 (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)))
(- 1 (+ (* (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 (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)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(-.f64 (-.f64 #s(literal 1 binary64) (.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)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(-.f64 (-.f64 #s(literal 1 binary64) (.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)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(-.f64 (-.f64 #s(literal 1 binary64) (.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)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(-.f64 (-.f64 #s(literal 1 binary64) (.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)))
(- 1 (pow (sin (* 1/2 (- phi1 phi2))) 2))
(-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(- (+ 1 (* -1/4 (* (pow lambda1 2) (* (cos phi1) (cos phi2))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 lambda1 lambda1)) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(- (+ 1 (* (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 #s(literal 1 binary64) (-.f64 (.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.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (pow lambda1 2) (- (* (pow lambda1 2) (- (* -1/1440 (* (pow lambda1 2) (* (cos phi1) (cos phi2)))) (* -1/48 (* (cos phi1) (cos phi2))))) (* 1/4 (* (cos phi1) (cos phi2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 lambda1 lambda1) (+.f64 (.f64 (.f64 lambda1 lambda1) (+.f64 (.f64 (.f64 #s(literal -1/1440 binary64) (.f64 lambda1 lambda1)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(literal 1/48 binary64)))) (.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (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 (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)))
(- 1 (+ (* (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 (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)))
(- 1 (+ (* (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 (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)))
(- 1 (+ (* (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 (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)))
(- 1 (+ (* (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 (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)))
(- 1 (+ (* (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 (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)))
(- 1 (+ (* (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 (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)))
(- 1 (+ (* (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 (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)))
(- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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)))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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)))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))))) (.f64 phi1 (.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/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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)))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))))) (.f64 phi1 (-.f64 (.f64 phi1 (+.f64 (+.f64 (.f64 (.f64 (cos.f64 phi2) #s(literal -1/2 binary64)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (.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))))))) (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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 phi2)) 2))
(-.f64 (+.f64 (+.f64 #s(literal 1 binary64) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (-.f64 (.f64 (.f64 (cos.f64 phi2) #s(literal -1/2 binary64)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (.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)))) (+.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))))))) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 phi1)) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))))) (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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 phi1)) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))))) (.f64 phi2 (+.f64 (.f64 phi2 (+.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (.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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 phi1)) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))))) (.f64 phi2 (+.f64 (.f64 phi2 (-.f64 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (.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 #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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 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 -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 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 -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 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 -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 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 -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* -1 (* (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 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(- (+ 1 (+ (* -1 (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda2)) 2)))) (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(-.f64 (+.f64 (-.f64 #s(literal 1 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 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(- (+ 1 (+ (* -1 (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda2)) 2)))) (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (cos (* 1/2 lambda2)) 2)) (* 1/4 (pow (sin (* 1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(-.f64 (+.f64 (-.f64 #s(literal 1 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 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.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 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64))))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(- (+ 1 (+ (* -1 (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda2)) 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 (cos (* 1/2 lambda2)) 2)) (* 1/4 (pow (sin (* 1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(-.f64 (+.f64 (-.f64 #s(literal 1 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 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.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 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (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 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) #s(literal -1/6 binary64))))))))) (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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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)))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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)))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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)))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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)))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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 #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 lambda1 #s(literal -1/2 binary64))))) (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 #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 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))) (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 (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 (+.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 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))) (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 (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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 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))) (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 #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) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))))) (.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 (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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 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 -1/2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))

eval1.3s (2.6%)

Compiler: Compiled 237410 to 7641 computations (96.8% saved)

prune808.0ms (1.6%)

Pruning

132 alts after pruning (132 fresh and 0 done)

	Pruned	Kept	Total
New	2787	121	2908
Fresh	55	11	66
Picked	5	0	5
Done	0	0	0
Total	2847	132	2979

Accuracy

79.1%

Counts

2979 → 132

Alt Table

Click to see full alt table

Status	Accuracy	Program
	55.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 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)))
	54.6%	(.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)))
	24.3%	(.f64 (atan2.f64 (/.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))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	30.2%	(.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 #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))))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	44.8%	(.f64 (atan2.f64 (+.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 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 (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 lambda2 #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 (-.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)))
	38.6%	(.f64 (atan2.f64 (+.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 (.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 (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 (-.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)))
	39.2%	(.f64 (atan2.f64 (+.f64 (sqrt.f64 (+.f64 #s(literal 1/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 (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 #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)))
	54.7%	(.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)))
	54.3%	(.f64 (atan2.f64 (sqrt.f64 (/.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)))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	54.6%	(.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)))
	38.3%	(.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 (.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)))))) (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)))
▶	43.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 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 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	61.6%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (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 (.f64 (cos.f64 phi1) (cos.f64 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)))
	61.4%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.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)))
	62.4%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	77.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 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.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.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 (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)))
	57.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 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)))
	77.1%	(.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)))
	70.7%	(.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 #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))))))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	62.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)) (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 (-.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)))
	63.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 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)))
	62.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 (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)))
▶	77.1%	(.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)))
	62.5%	(.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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	50.1%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (+.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)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -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.8%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (+.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))))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	49.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 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	60.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 (fma.f64 (+.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))) #s(literal 1/2 binary64) (-.f64 #s(literal 0 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 (-.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)))
	54.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 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.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)))
	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 (-.f64 (/.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))) (/.f64 (pow.f64 (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (.f64 (.f64 (cos.f64 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)))
	60.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 (-.f64 (/.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))) (/.f64 (pow.f64 (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.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)))
	60.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 (.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 (-.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)))
	61.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 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (/.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 #s(literal -1/2 binary64) (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))))) #s(literal 3 binary64)) (pow.f64 (/.f64 (.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)))) (sqrt.f64 (+.f64 (.f64 (+.f64 #s(literal -1/2 binary64) (+.f64 #s(literal 1 binary64) (.f64 #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 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 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)))) (pow.f64 (/.f64 (.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 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	54.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 (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)))) (*.f64 R #s(literal 2 binary64)))
	57.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 (.f64 (cos.f64 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 (.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)))))) #s(literal 1 binary64)))))) (.f64 R #s(literal 2 binary64)))
	62.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 (.f64 (cos.f64 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 (.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))))) #s(literal 1 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	50.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 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	50.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/2 binary64) (.f64 (cos.f64 phi2) #s(literal 1/2 binary64))) (.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 R #s(literal 2 binary64)))
	49.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/2 binary64) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))) (.f64 R #s(literal 2 binary64)))
	62.0%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.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 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))) (/.f64 (pow.f64 (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	62.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))))) (-.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))))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	50.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 (-.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 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	48.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 (-.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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	45.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 (-.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 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)))
	50.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 (.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 #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.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 (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.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.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.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 (+.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.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	50.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	45.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 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)))
	51.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 (+.f64 #s(literal 1 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)))
	50.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 #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)))
	51.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 (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)))
	48.0%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.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 (-.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)))
	45.7%	(.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 (-.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)))
	46.3%	(.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 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.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.3%	(.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 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	48.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 lambda2 #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 (-.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)))
	41.3%	(.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 (-.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)))
	42.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 (.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)))
	54.6%	(.f64 (atan2.f64 (sqrt.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) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	54.7%	(.f64 (atan2.f64 (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)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	54.7%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (/.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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	54.5%	(.f64 (atan2.f64 (sqrt.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) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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.6%	(.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 #s(literal -1/2 binary64) (.f64 phi1 (cos.f64 phi2))) (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)))
	39.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 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) 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)))
	54.7%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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.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) (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)))
	55.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) (+.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)))
▶	37.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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2))) (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)))
	38.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) (+.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 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	33.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) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.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)))
	54.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 (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 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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.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) (+.f64 (cos.f64 phi2) (.f64 phi1 (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)))
	36.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 (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)))
	54.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 (.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)))
	54.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 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.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 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 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	55.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 (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 -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	54.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 (.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 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 -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	55.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 (.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.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 (+.f64 (cos.f64 lambda2) (.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)))
	43.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 (.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)))
	32.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 lambda1) (+.f64 (.f64 lambda2 (sin.f64 lambda1)) #s(literal -1 binary64))) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	54.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 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (+.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)))
	43.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 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.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 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)))
	40.3%	(.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)))
	39.3%	(.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)))
	44.9%	(.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 (.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 (.f64 lambda1 (cos.f64 phi1)) (.f64 (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)))))))))) (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)))
	44.3%	(.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 (.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)))))))) (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)))
	38.1%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (.f64 phi2 #s(literal -1/2 binary64)) (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)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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.5%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.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 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	47.2%	(.f64 (atan2.f64 (sqrt.f64 (+.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 (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) (-.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)))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.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.9%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (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)))
	37.2%	(.f64 (atan2.f64 (sqrt.f64 (+.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 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)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	54.7%	(.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 (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)))
	38.4%	(.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 (+.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/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 lambda1 #s(literal 2 binary64)))))))))) (*.f64 #s(literal 2 binary64) R))
▶	54.5%	(.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 (-.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)))
	55.5%	(.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)))
	54.6%	(.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))) (+.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) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	54.6%	(.f64 (atan2.f64 (sqrt.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 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) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	48.0%	(.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 (-.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)))
	49.0%	(.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 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.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.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))) (pow.f64 (sin.f64 (.f64 phi1 #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 (-.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)))
	47.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 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.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.9%	(.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 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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.4%	(.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 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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.2%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (neg.f64 (.f64 phi1 (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))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	54.7%	(.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)))
	43.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 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)))
	36.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) (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)))
	54.7%	(.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)))
	45.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 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)))))))))
	46.1%	(.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 #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)))))))))
	44.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (+.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))) #s(literal 1/2 binary64) (-.f64 #s(literal 0 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 (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)))))))))
	61.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (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)))))))
	34.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) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
	45.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (+.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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
	46.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 (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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
	41.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
	46.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 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #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)))))))))
	37.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #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)))))))))
	37.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (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) lambda1)) #s(literal 2 binary64)))))))))
	36.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #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)))))))))
	36.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.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)))))))))
	31.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (.f64 lambda2 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
	32.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (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)))))))))
	41.4%	(.f64 R (.f64 #s(literal 2 binary64) (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 (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)))))))))
	38.4%	(.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 (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)))))))))
	35.1%	(.f64 R (.f64 #s(literal 2 binary64) (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 (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)))))))))
	34.3%	(.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 #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)))))))))

Compiler

Compiled 22092 to 11554 computations (47.7% saved)

simplify262.0ms (0.5%)

Algorithm

1×	egg-herbie

Localize:

Found 20 expressions of interest:

New	Metric	Score	Program
✓	cost-diff	6464	(-.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))))))
✓	cost-diff	6464	(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 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)))))))
✓	cost-diff	6464	(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 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 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(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-diff	6464	(.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 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 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.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-diff	128	(+.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)))))))
✓	cost-diff	128	(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))))))))
✓	cost-diff	128	(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 (-.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))))))
✓	cost-diff	128	(.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 (-.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)))
✓	cost-diff	6528	(+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 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 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 lambda2))) (sin.f64 lambda2)))))) #s(literal 2 binary64)))
✓	cost-diff	6528	(sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 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 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 lambda2))) (sin.f64 lambda2)))))) #s(literal 2 binary64))))
✓	cost-diff	6912	(atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 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 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2))) (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)))))
✓	cost-diff	6912	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 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 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2))) (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)))
✓	cost-diff	6784	(+.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))))
✓	cost-diff	6784	(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)))))
✓	cost-diff	7168	(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 (cos.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-diff	7168	(.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 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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-diff	320	(+.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))))))
✓	cost-diff	320	(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)))))))
✓	cost-diff	320	(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))))))
✓	cost-diff	320	(.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)))

Rules

2818×	`-lowering-.f32`
2818×	`-lowering-.f64`
2084×	`+-lowering-+.f64`
2084×	`+-lowering-+.f32`
1922×	`fma-lowering-fma.f32`

Iterations

Useful iterations: 3 (0.0ms)

Iter	Nodes	Cost
0	122	2523
1	298	2441
2	835	2304
3	2511	2294
4	6472	2294
0	8060	2294

Stop Event

1×	iter limit
1×	node limit

Calls

Call 1

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

Localize:

Found 20 expressions of interest:

New	Metric	Score	Program
✓	accuracy	99.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))))
✓	accuracy	91.7%	(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
✓	accuracy	91.7%	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))
✓	accuracy	91.7%	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
✓	accuracy	91.7%	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))
✓	accuracy	91.6%	(cos.f64 (-.f64 lambda1 lambda2))
✓	accuracy	88.1%	(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))
✓	accuracy	81.9%	(+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))
✓	accuracy	91.6%	(cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64)))
✓	accuracy	88.3%	(-.f64 #s(literal 1 binary64) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 lambda2))) (sin.f64 lambda2)))))
✓	accuracy	88.0%	(+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64))
✓	accuracy	81.9%	(-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))
✓	accuracy	91.6%	(cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64)))
✓	accuracy	91.0%	(+.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))))
✓	accuracy	88.0%	(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))
✓	accuracy	88.0%	(+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64))
✓	accuracy	99.5%	(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)))))))
✓	accuracy	99.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))))
✓	accuracy	91.7%	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))
✓	accuracy	91.7%	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))

Results

879.0ms	151×	1	valid
266.0ms	103×	0	invalid
6.0ms	1×	2	valid
2.0ms	1×	0	valid

Compiler

Compiled 2625 to 123 computations (95.3% saved)

Precisions

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

ival-mult: 219.0ms (26.8% of total)

ival-sin: 189.0ms (23.1% of total)

ival-cos: 176.0ms (21.5% of total)

backward-pass: 80.0ms (9.8% of total)

ival-atan2: 30.0ms (3.7% of total)

ival-add: 29.0ms (3.5% of total)

ival-div: 29.0ms (3.5% of total)

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

ival-sub: 21.0ms (2.6% of total)

ival-pow: 19.0ms (2.3% of total)

const: 2.0ms (0.2% of total)

series347.0ms (0.7%)

Counts

32 → 1308

Calls

Call 1

Inputs
#<alt (* (atan2 (sqrt (+ (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)))))) (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))) (* (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))) (* (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))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2) (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2)))))>
#<alt (* (atan2 (sqrt (+ 1/2 (+ (* (* (cos phi1) 1/2) (- 1 (cos (- lambda1 lambda2)))) (* (cos phi1) -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 (+ (* (* (cos phi1) 1/2) (- 1 (cos (- lambda1 lambda2)))) (* (cos phi1) -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 (+ (* (* (cos phi1) 1/2) (- 1 (cos (- lambda1 lambda2)))) (* (cos phi1) -1/2))))>
#<alt (+ 1/2 (+ (* (* (cos phi1) 1/2) (- 1 (cos (- lambda1 lambda2)))) (* (cos phi1) -1/2)))>
#<alt (* (atan2 (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (+ (cos lambda2) (* lambda1 (+ (* -1/2 (* lambda1 (cos lambda2))) (sin lambda2)))))) 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 lambda2) (* lambda1 (+ (* -1/2 (* lambda1 (cos lambda2))) (sin lambda2)))))) 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 lambda2) (* lambda1 (+ (* -1/2 (* lambda1 (cos lambda2))) (sin lambda2)))))) 2)))>
#<alt (+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (+ (cos lambda2) (* lambda1 (+ (* -1/2 (* lambda1 (cos lambda2))) (sin lambda2)))))) 2))>
#<alt (* (atan2 (sqrt (+ (+ 1/2 (* (cos (* (- phi1 phi2) 1)) -1/2)) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (- (* (sin (/ lambda1 2)) (cos (/ lambda2 2))) (* (cos (/ lambda1 2)) (sin (/ lambda2 2)))) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2))))) (* R 2))>
#<alt (atan2 (sqrt (+ (+ 1/2 (* (cos (* (- phi1 phi2) 1)) -1/2)) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (- (* (sin (/ lambda1 2)) (cos (/ lambda2 2))) (* (cos (/ lambda1 2)) (sin (/ lambda2 2)))) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2)))))>
#<alt (sqrt (+ (+ 1/2 (* (cos (* (- phi1 phi2) 1)) -1/2)) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))>
#<alt (+ (+ 1/2 (* (cos (* (- phi1 phi2) 1)) -1/2)) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))>
#<alt (* (atan2 (sqrt (- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* phi1 1/2)) 2)) (* phi2 (* (sin (* phi1 1/2)) (cos (* phi1 1/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 (- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* phi1 1/2)) 2)) (* phi2 (* (sin (* phi1 1/2)) (cos (* phi1 1/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 (- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* phi1 1/2)) 2)) (* phi2 (* (sin (* phi1 1/2)) (cos (* phi1 1/2))))))>
#<alt (- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* phi1 1/2)) 2)) (* phi2 (* (sin (* phi1 1/2)) (cos (* phi1 1/2)))))>
#<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 (+ (cos (* (- lambda1 lambda2) 1)) -1)>
#<alt (- 1 (cos (- lambda1 lambda2)))>
#<alt (cos (* (- lambda1 lambda2) 1))>
#<alt (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2)))))>
#<alt (- 1 (+ (cos lambda2) (* lambda1 (+ (* -1/2 (* lambda1 (cos lambda2))) (sin lambda2)))))>
#<alt (+ 1/2 (* (cos (* (- phi1 phi2) 1)) -1/2))>
#<alt (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))>
#<alt (cos (- lambda1 lambda2))>
#<alt (sin (* 1/2 (- lambda1 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 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (neg (+ lambda2 (* -1 lambda1)))))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (neg (+ lambda2 (* -1 lambda1)))))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (neg (+ lambda2 (* -1 lambda1)))))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (neg (+ lambda2 (* -1 lambda1)))))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (+ lambda1 (* -1 lambda2))))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (+ lambda1 (* -1 lambda2))))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (+ lambda1 (* -1 lambda2))))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (+ lambda1 (* -1 lambda2))))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (neg (+ lambda2 (* -1 lambda1)))))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (neg (+ lambda2 (* -1 lambda1)))))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (neg (+ lambda2 (* -1 lambda1)))))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (neg (+ lambda2 (* -1 lambda1)))))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (+ lambda1 (* -1 lambda2))))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (+ lambda1 (* -1 lambda2))))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (+ lambda1 (* -1 lambda2))))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (+ lambda1 (* -1 lambda2))))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2)))))>
#<alt (+ (* 1/2 (* (/ (* (pow phi1 2) (+ 1/4 (* -1/4 (- 1 (cos (- lambda1 lambda2)))))) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (- lambda1 lambda2))))))) (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))))>
#<alt (+ (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (* (pow phi1 2) (+ (* 1/2 (* (/ (* (pow phi1 2) (- (* 1/48 (- 1 (cos (- lambda1 lambda2)))) (+ 1/48 (* 1/4 (/ (pow (+ 1/4 (* -1/4 (- 1 (cos (- lambda1 lambda2))))) 2) (* (pow (sqrt 1/2) 2) (- 1 (cos (- lambda1 lambda2))))))))) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (* (/ (+ 1/4 (* -1/4 (- 1 (cos (- lambda1 lambda2))))) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (- lambda1 lambda2))))))))))>
#<alt (+ (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (* (pow phi1 2) (+ (* 1/2 (* (/ (+ 1/4 (* -1/4 (- 1 (cos (- lambda1 lambda2))))) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (- lambda1 lambda2))))))) (* (pow phi1 2) (+ (* 1/2 (* (/ (* (pow phi1 2) (- (+ 1/1440 (* -1/1440 (- 1 (cos (- lambda1 lambda2))))) (* 1/2 (/ (* (+ 1/4 (* -1/4 (- 1 (cos (- lambda1 lambda2))))) (- (* 1/48 (- 1 (cos (- lambda1 lambda2)))) (+ 1/48 (* 1/4 (/ (pow (+ 1/4 (* -1/4 (- 1 (cos (- lambda1 lambda2))))) 2) (* (pow (sqrt 1/2) 2) (- 1 (cos (- lambda1 lambda2))))))))) (* (pow (sqrt 1/2) 2) (- 1 (cos (- lambda1 lambda2)))))))) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (* (/ (- (* 1/48 (- 1 (cos (- lambda1 lambda2)))) (+ 1/48 (* 1/4 (/ (pow (+ 1/4 (* -1/4 (- 1 (cos (- lambda1 lambda2))))) 2) (* (pow (sqrt 1/2) 2) (- 1 (cos (- lambda1 lambda2)))))))) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (- lambda1 lambda2))))))))))))>
#<alt (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))))))>
#<alt (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))))))>
#<alt (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))))))>
#<alt (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))))))>
#<alt (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))))))>
#<alt (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))))))>
#<alt (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))))))>
#<alt (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))))))>
#<alt (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (neg lambda2))))))))>
#<alt (+ (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (neg lambda2)))))))) (* 1/4 (* (* lambda1 (* (cos phi1) (sin (neg lambda2)))) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (neg lambda2))))))))))))>
#<alt (+ (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (neg lambda2)))))))) (* lambda1 (+ (* 1/4 (* (* (cos phi1) (sin (neg lambda2))) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (neg lambda2))))))))))) (* 1/2 (* (* lambda1 (- (* 1/4 (* (cos phi1) (cos (neg lambda2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (pow (sin (neg lambda2)) 2)) (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (neg lambda2))))))))))) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (neg lambda2))))))))))))))>
#<alt (+ (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (neg lambda2)))))))) (* lambda1 (+ (* 1/4 (* (* (cos phi1) (sin (neg lambda2))) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (neg lambda2))))))))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (neg lambda2))))))))) (- (* 1/4 (* (cos phi1) (cos (neg lambda2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (pow (sin (neg lambda2)) 2)) (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (neg lambda2)))))))))))) (* 1/2 (* (* lambda1 (- (* -1/12 (* (cos phi1) (sin (neg lambda2)))) (* 1/4 (/ (* (cos phi1) (* (sin (neg lambda2)) (- (* 1/4 (* (cos phi1) (cos (neg lambda2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (pow (sin (neg lambda2)) 2)) (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (neg lambda2)))))))))))) (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (neg lambda2))))))))))) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (neg lambda2))))))))))))))))>
#<alt (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))))))>
#<alt (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))))))>
#<alt (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))))))>
#<alt (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))))))>
#<alt (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (neg (+ lambda2 (* -1 lambda1))))))))))>
#<alt (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (neg (+ lambda2 (* -1 lambda1))))))))))>
#<alt (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (neg (+ lambda2 (* -1 lambda1))))))))))>
#<alt (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (neg (+ lambda2 (* -1 lambda1))))))))))>
#<alt (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos lambda1)))))))>
#<alt (+ (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos lambda1))))))) (* -1/4 (* (* lambda2 (* (cos phi1) (sin lambda1))) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos lambda1)))))))))))>
#<alt (+ (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos lambda1))))))) (* lambda2 (+ (* -1/4 (* (* (cos phi1) (sin lambda1)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos lambda1)))))))))) (* 1/2 (* (* lambda2 (- (* 1/4 (* (cos lambda1) (cos phi1))) (* 1/16 (/ (* (pow (cos phi1) 2) (pow (sin lambda1) 2)) (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos lambda1)))))))))) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos lambda1)))))))))))))>
#<alt (+ (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos lambda1))))))) (* lambda2 (+ (* -1/4 (* (* (cos phi1) (sin lambda1)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos lambda1)))))))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos lambda1)))))))) (- (* 1/4 (* (cos lambda1) (cos phi1))) (* 1/16 (/ (* (pow (cos phi1) 2) (pow (sin lambda1) 2)) (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos lambda1))))))))))) (* 1/2 (* (* lambda2 (- (* 1/12 (* (cos phi1) (sin lambda1))) (* -1/4 (/ (* (cos phi1) (* (sin lambda1) (- (* 1/4 (* (cos lambda1) (cos phi1))) (* 1/16 (/ (* (pow (cos phi1) 2) (pow (sin lambda1) 2)) (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos lambda1))))))))))) (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos lambda1)))))))))) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos lambda1)))))))))))))))>
#<alt (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))))))>
#<alt (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))))))>
#<alt (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))))))>
#<alt (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))))))>
#<alt (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))))>
#<alt (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))))>
#<alt (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))))>
#<alt (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))))>
#<alt (* 1/2 (- 1 (cos (- lambda1 lambda2))))>
#<alt (+ (* 1/2 (- 1 (cos (- lambda1 lambda2)))) (* (pow phi1 2) (+ 1/4 (* -1/4 (- 1 (cos (- lambda1 lambda2)))))))>
#<alt (+ (* 1/2 (- 1 (cos (- lambda1 lambda2)))) (* (pow phi1 2) (+ 1/4 (+ (* -1/4 (- 1 (cos (- lambda1 lambda2)))) (* (pow phi1 2) (- (* 1/48 (- 1 (cos (- lambda1 lambda2)))) 1/48))))))>
#<alt (+ (* 1/2 (- 1 (cos (- lambda1 lambda2)))) (* (pow phi1 2) (+ 1/4 (+ (* -1/4 (- 1 (cos (- lambda1 lambda2)))) (* (pow phi1 2) (- (+ (* 1/48 (- 1 (cos (- lambda1 lambda2)))) (* (pow phi1 2) (+ 1/1440 (* -1/1440 (- 1 (cos (- lambda1 lambda2))))))) 1/48))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (neg lambda2)))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos phi1)) (+ (* 1/2 (* lambda1 (* (cos phi1) (sin (neg lambda2))))) (* 1/2 (* (cos phi1) (- 1 (cos (neg lambda2))))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos phi1)) (+ (* 1/2 (* (cos phi1) (- 1 (cos (neg lambda2))))) (* lambda1 (+ (* 1/4 (* lambda1 (* (cos phi1) (cos (neg lambda2))))) (* 1/2 (* (cos phi1) (sin (neg lambda2)))))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos phi1)) (+ (* 1/2 (* (cos phi1) (- 1 (cos (neg lambda2))))) (* lambda1 (+ (* 1/2 (* (cos phi1) (sin (neg lambda2)))) (* lambda1 (+ (* -1/12 (* lambda1 (* (cos phi1) (sin (neg lambda2))))) (* 1/4 (* (cos phi1) (cos (neg lambda2)))))))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (neg (+ lambda2 (* -1 lambda1)))))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (neg (+ lambda2 (* -1 lambda1)))))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (neg (+ lambda2 (* -1 lambda1)))))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (neg (+ lambda2 (* -1 lambda1)))))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos lambda1))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos phi1)) (+ (* -1/2 (* lambda2 (* (cos phi1) (sin lambda1)))) (* 1/2 (* (cos phi1) (- 1 (cos lambda1)))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos phi1)) (+ (* 1/2 (* (cos phi1) (- 1 (cos lambda1)))) (* lambda2 (+ (* -1/2 (* (cos phi1) (sin lambda1))) (* 1/4 (* lambda2 (* (cos lambda1) (cos phi1)))))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos phi1)) (+ (* 1/2 (* (cos phi1) (- 1 (cos lambda1)))) (* lambda2 (+ (* -1/2 (* (cos phi1) (sin lambda1))) (* lambda2 (+ (* 1/12 (* lambda2 (* (cos phi1) (sin lambda1)))) (* 1/4 (* (cos lambda1) (cos phi1))))))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (+ lambda1 (* -1 lambda2))))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (+ lambda1 (* -1 lambda2))))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (+ lambda1 (* -1 lambda2))))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (+ lambda1 (* -1 lambda2))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos 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 lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos 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 lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos 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 lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos 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 lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (+ (* -1/2 (* (pow lambda1 2) (cos lambda2))) (* lambda1 (sin 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 lambda2) (+ (* -1/2 (* (pow lambda1 2) (cos lambda2))) (* lambda1 (sin 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 lambda2) (+ (* -1/2 (* (pow lambda1 2) (cos lambda2))) (* lambda1 (sin 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 lambda2) (+ (* -1/2 (* (pow lambda1 2) (cos lambda2))) (* lambda1 (sin 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 lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos 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 lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos 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 lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos 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 lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos 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 lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (+ (* -1/2 (* (pow lambda1 2) (cos lambda2))) (* lambda1 (sin 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 lambda2) (+ (* -1/2 (* (pow lambda1 2) (cos lambda2))) (* lambda1 (sin 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 lambda2) (+ (* -1/2 (* (pow lambda1 2) (cos lambda2))) (* lambda1 (sin 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 lambda2) (+ (* -1/2 (* (pow lambda1 2) (cos lambda2))) (* lambda1 (sin 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 lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos (neg phi2)))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos (neg phi2))))) (* 1/4 (* (* phi1 (sin (neg phi2))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos (neg phi2)))))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos (neg phi2))))) (* phi1 (+ (* 1/4 (* (sin (neg phi2)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos (neg phi2)))))))) (* 1/2 (* (* phi1 (- (* -1/4 (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))) (+ (* -1/4 (cos (neg phi2))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos (neg phi2))))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos (neg phi2)))))))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos (neg phi2))))) (* phi1 (+ (* 1/4 (* (sin (neg phi2)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos 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 lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))) (+ (* -1/4 (cos (neg phi2))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos (neg phi2))))))))) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos (neg phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos (neg phi2)))))))) (* 1/2 (* (- (* -1/4 (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))) (+ (* -1/4 (cos (neg phi2))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos (neg phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos (neg phi2)))))))))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos phi1))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos phi1)))) (* -1/4 (* (* phi2 (sin phi1)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos phi1))))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos phi1)))) (* phi2 (+ (* -1/4 (* (sin phi1) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos phi1))))))) (* 1/2 (* (* phi2 (- (* -1/4 (* (cos phi1) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))) (+ (* -1/4 (cos phi1)) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos phi1)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos phi1))))))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos phi1)))) (* phi2 (+ (* -1/4 (* (sin phi1) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos phi1))))))) (* phi2 (+ (* -1/2 (* (* phi2 (+ (* -1/4 (/ (* (sin phi1) (- (* -1/4 (* (cos phi1) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))) (+ (* -1/4 (cos phi1)) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos phi1)))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos phi1))))) (* -1/12 (sin phi1)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos phi1))))))) (* 1/2 (* (- (* -1/4 (* (cos phi1) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))) (+ (* -1/4 (cos phi1)) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos phi1))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos phi1))))))))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))>
#<alt (sqrt (- (+ 1/2 (* 1/4 (* (pow lambda1 2) (* (cos phi1) (cos phi2))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/4 (* (pow lambda1 2) (* (cos phi1) (cos phi2))))) (* 1/2 (cos (- phi1 phi2))))) (* -1/4 (* (* lambda1 (* lambda2 (* (cos phi1) (cos phi2)))) (sqrt (/ 1 (- (+ 1/2 (* 1/4 (* (pow lambda1 2) (* (cos phi1) (cos phi2))))) (* 1/2 (cos (- phi1 phi2)))))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/4 (* (pow lambda1 2) (* (cos phi1) (cos phi2))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda2 (+ (* -1/4 (* (* lambda1 (* (cos phi1) (cos phi2))) (sqrt (/ 1 (- (+ 1/2 (* 1/4 (* (pow lambda1 2) (* (cos phi1) (cos phi2))))) (* 1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (* lambda2 (- (* 1/2 (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/4 (pow lambda1 2)))))) (* 1/16 (/ (* (pow lambda1 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (+ 1/2 (* 1/4 (* (pow lambda1 2) (* (cos phi1) (cos phi2))))) (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/4 (* (pow lambda1 2) (* (cos phi1) (cos phi2))))) (* 1/2 (cos (- phi1 phi2)))))))))))>
#<alt (+ (sqrt (- (+ 1/2 (* 1/4 (* (pow lambda1 2) (* (cos phi1) (cos phi2))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda2 (+ (* -1/4 (* (* lambda1 (* (cos phi1) (cos phi2))) (sqrt (/ 1 (- (+ 1/2 (* 1/4 (* (pow lambda1 2) (* (cos phi1) (cos phi2))))) (* 1/2 (cos (- phi1 phi2)))))))) (* lambda2 (+ (* 1/2 (* (* lambda2 (- (* 1/12 (* lambda1 (* (cos phi1) (cos phi2)))) (* -1/4 (/ (* lambda1 (* (cos phi1) (* (cos phi2) (- (* 1/2 (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/4 (pow lambda1 2)))))) (* 1/16 (/ (* (pow lambda1 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (+ 1/2 (* 1/4 (* (pow lambda1 2) (* (cos phi1) (cos phi2))))) (* 1/2 (cos (- phi1 phi2)))))))))) (- (+ 1/2 (* 1/4 (* (pow lambda1 2) (* (cos phi1) (cos phi2))))) (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/4 (* (pow lambda1 2) (* (cos phi1) (cos phi2))))) (* 1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (- (* 1/2 (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/4 (pow lambda1 2)))))) (* 1/16 (/ (* (pow lambda1 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (+ 1/2 (* 1/4 (* (pow lambda1 2) (* (cos phi1) (cos phi2))))) (* 1/2 (cos (- phi1 phi2))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/4 (* (pow lambda1 2) (* (cos phi1) (cos phi2))))) (* 1/2 (cos (- phi1 phi2)))))))))))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2)))))>
#<alt (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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)))))>
#<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/8 (* (* lambda1 (* (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))))))))))) (sqrt (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))) 3))))) (* 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 (* 1/2 (* lambda1 (sqrt (* (cos lambda2) (* (cos phi1) (cos phi2))))))>
#<alt (* lambda1 (+ (* -1/2 (* (/ (sin lambda2) lambda1) (sqrt (/ (* (cos phi1) (cos phi2)) (cos lambda2))))) (* 1/2 (sqrt (* (cos lambda2) (* (cos phi1) (cos phi2)))))))>
#<alt (* lambda1 (+ (* -1/2 (* (/ (sin lambda2) lambda1) (sqrt (/ (* (cos phi1) (cos phi2)) (cos lambda2))))) (+ (* 1/2 (sqrt (* (cos lambda2) (* (cos phi1) (cos phi2))))) (* (/ (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (+ (* 1/4 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda2) 2))) (cos lambda2))) (* 1/2 (cos (- phi1 phi2))))) (pow lambda1 2)) (sqrt (/ 1 (* (cos lambda2) (* (cos phi1) (cos phi2)))))))))>
#<alt (* lambda1 (+ (* -1/2 (* (/ (sin lambda2) lambda1) (sqrt (/ (* (cos phi1) (cos phi2)) (cos lambda2))))) (+ (* 1/2 (sqrt (* (cos lambda2) (* (cos phi1) (cos phi2))))) (+ (* (/ (* (sin lambda2) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (+ (* 1/4 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda2) 2))) (cos lambda2))) (* 1/2 (cos (- phi1 phi2)))))) (pow lambda1 3)) (sqrt (/ 1 (* (pow (cos lambda2) 3) (* (cos phi1) (cos phi2)))))) (* (/ (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (+ (* 1/4 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda2) 2))) (cos lambda2))) (* 1/2 (cos (- phi1 phi2))))) (pow lambda1 2)) (sqrt (/ 1 (* (cos lambda2) (* (cos phi1) (cos phi2))))))))))>
#<alt (* -1/2 (* lambda1 (sqrt (* (cos lambda2) (* (cos phi1) (cos phi2))))))>
#<alt (* -1 (* lambda1 (+ (* -1/2 (* (/ (sin lambda2) lambda1) (sqrt (/ (* (cos phi1) (cos phi2)) (cos lambda2))))) (* 1/2 (sqrt (* (cos lambda2) (* (cos phi1) (cos phi2))))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (* (/ (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (+ (* 1/4 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda2) 2))) (cos lambda2))) (* 1/2 (cos (- phi1 phi2))))) lambda1) (sqrt (/ 1 (* (cos lambda2) (* (cos phi1) (cos phi2))))))) (* 1/2 (* (sqrt (/ (* (cos phi1) (cos phi2)) (cos lambda2))) (sin lambda2)))) lambda1)) (* 1/2 (sqrt (* (cos lambda2) (* (cos phi1) (cos phi2))))))))>
#<alt (* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* (sqrt (/ 1 (* (cos lambda2) (* (cos phi1) (cos phi2))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (+ (* 1/4 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda2) 2))) (cos lambda2))) (* 1/2 (cos (- phi1 phi2)))))) (* (/ (* (sin lambda2) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (+ (* 1/4 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda2) 2))) (cos lambda2))) (* 1/2 (cos (- phi1 phi2)))))) lambda1) (sqrt (/ 1 (* (pow (cos lambda2) 3) (* (cos phi1) (cos phi2))))))) lambda1)) (* 1/2 (* (sqrt (/ (* (cos phi1) (cos phi2)) (cos lambda2))) (sin lambda2)))) lambda1)) (* 1/2 (sqrt (* (cos lambda2) (* (cos phi1) (cos phi2))))))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos (neg phi2))))>
#<alt (- (+ 1/2 (+ (* 1/2 (* phi1 (sin (neg phi2)))) (* 1/2 (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (neg phi2))))>
#<alt (- (+ 1/2 (+ (* 1/2 (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))) (* phi1 (- (* phi1 (- (* -1/4 (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos 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 lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))) (* phi1 (- (* phi1 (- (+ (* -1/4 (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos 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 lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos phi1)))>
#<alt (- (+ 1/2 (+ (* -1/2 (* phi2 (sin phi1))) (* 1/2 (* (cos phi1) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos phi1)))>
#<alt (- (+ 1/2 (+ (* 1/2 (* (cos phi1) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))) (* phi2 (- (* phi2 (- (* -1/4 (* (cos phi1) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))) (* -1/4 (cos phi1)))) (* 1/2 (sin phi1)))))) (* 1/2 (cos phi1)))>
#<alt (- (+ 1/2 (+ (* 1/2 (* (cos phi1) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))) (* phi2 (- (* phi2 (- (+ (* -1/4 (* (cos phi1) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos 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 lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))>
#<alt (- (+ 1/2 (* 1/4 (* (pow lambda1 2) (* (cos phi1) (cos phi2))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (+ (* -1/2 (* lambda1 (* lambda2 (* (cos phi1) (cos phi2))))) (* 1/4 (* (pow lambda1 2) (* (cos phi1) (cos phi2)))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (+ (* 1/4 (* (pow lambda1 2) (* (cos phi1) (cos phi2)))) (* lambda2 (+ (* -1/2 (* lambda1 (* (cos phi1) (cos phi2)))) (* 1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/4 (pow lambda1 2))))))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (+ (* 1/4 (* (pow lambda1 2) (* (cos phi1) (cos phi2)))) (* lambda2 (+ (* -1/2 (* lambda1 (* (cos phi1) (cos phi2)))) (* lambda2 (+ (* 1/12 (* lambda1 (* lambda2 (* (cos phi1) (cos phi2))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/4 (pow lambda1 2)))))))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin lambda2)))) (* 1/4 (* lambda1 (* (cos lambda2) (* (cos phi1) (cos phi2))))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (- (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin lambda2)))) (* 1/4 (* lambda1 (* (cos lambda2) (* (cos phi1) (cos phi2))))))))) (* 1/2 (cos (- phi1 phi2))))>
#<alt (* 1/4 (* (pow lambda1 2) (* (cos lambda2) (* (cos phi1) (cos phi2)))))>
#<alt (* (pow lambda1 2) (+ (* -1/2 (/ (* (cos phi1) (* (cos phi2) (sin lambda2))) lambda1)) (* 1/4 (* (cos lambda2) (* (cos phi1) (cos phi2))))))>
#<alt (* (pow lambda1 2) (- (+ (* -1/2 (/ (* (cos phi1) (* (cos phi2) (sin lambda2))) lambda1)) (+ (* 1/4 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (+ (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))) (pow lambda1 2))) (/ 1/2 (pow lambda1 2))))) (* 1/2 (/ (cos (- phi1 phi2)) (pow lambda1 2)))))>
#<alt (* (pow lambda1 2) (- (+ (* -1/2 (/ (* (cos phi1) (* (cos phi2) (sin lambda2))) lambda1)) (+ (* 1/4 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (+ (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))) (pow lambda1 2))) (/ 1/2 (pow lambda1 2))))) (* 1/2 (/ (cos (- phi1 phi2)) (pow lambda1 2)))))>
#<alt (* 1/4 (* (pow lambda1 2) (* (cos lambda2) (* (cos phi1) (cos phi2)))))>
#<alt (* (pow lambda1 2) (+ (* -1/2 (/ (* (cos phi1) (* (cos phi2) (sin lambda2))) lambda1)) (* 1/4 (* (cos lambda2) (* (cos phi1) (cos phi2))))))>
#<alt (* (pow lambda1 2) (+ (* -1 (/ (+ (* -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))))) lambda1)) (* 1/4 (* (cos lambda2) (* (cos phi1) (cos phi2))))))>
#<alt (* (pow lambda1 2) (+ (* -1 (/ (+ (* -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))))) lambda1)) (* 1/4 (* (cos lambda2) (* (cos phi1) (cos phi2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))>
#<alt (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))>
#<alt (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))>
#<alt (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))>
#<alt (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))>
#<alt (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))>
#<alt (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))>
#<alt (sqrt (+ 1/2 (+ (* -1/2 (cos (neg phi2))) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))>
#<alt (+ (sqrt (+ 1/2 (+ (* -1/2 (cos (neg phi2))) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))) (* 1/4 (* (* phi1 (sin (neg phi2))) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg phi2))) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))))))>
#<alt (+ (sqrt (+ 1/2 (+ (* -1/2 (cos (neg phi2))) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))) (* phi1 (+ (* 1/4 (* (sin (neg phi2)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg phi2))) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))))) (* 1/2 (* (* phi1 (- (+ (* -1/2 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (* 1/4 (cos (neg phi2)))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (+ 1/2 (+ (* -1/2 (cos (neg phi2))) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))))) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg phi2))) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))))))))>
#<alt (+ (sqrt (+ 1/2 (+ (* -1/2 (cos (neg phi2))) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))) (* phi1 (+ (* 1/4 (* (sin (neg phi2)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg phi2))) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg phi2))) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (- (+ (* -1/2 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (* 1/4 (cos (neg phi2)))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (+ 1/2 (+ (* -1/2 (cos (neg phi2))) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))))) (* 1/2 (* (* phi1 (- (* -1/12 (sin (neg phi2))) (* 1/4 (/ (* (sin (neg phi2)) (- (+ (* -1/2 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (* 1/4 (cos (neg phi2)))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (+ 1/2 (+ (* -1/2 (cos (neg phi2))) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))))) (+ 1/2 (+ (* -1/2 (cos (neg phi2))) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))))) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg phi2))) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))))))))))>
#<alt (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))>
#<alt (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))>
#<alt (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))>
#<alt (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))>
#<alt (sqrt (+ 1/2 (+ (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))>
#<alt (sqrt (+ 1/2 (+ (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))>
#<alt (sqrt (+ 1/2 (+ (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))>
#<alt (sqrt (+ 1/2 (+ (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))>
#<alt (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))>
#<alt (+ (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))) (* -1/4 (* (* phi2 (sin phi1)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos phi1)) (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))))))>
#<alt (+ (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))) (* phi2 (+ (* -1/4 (* (sin phi1) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos phi1)) (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))))) (* 1/2 (* (* phi2 (- (+ (* -1/2 (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (* 1/4 (cos phi1))) (* 1/16 (/ (pow (sin phi1) 2) (+ 1/2 (+ (* -1/2 (cos phi1)) (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))))) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos phi1)) (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))))))))>
#<alt (+ (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))) (* phi2 (+ (* -1/4 (* (sin phi1) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos phi1)) (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos phi1)) (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (- (+ (* -1/2 (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (* 1/4 (cos phi1))) (* 1/16 (/ (pow (sin phi1) 2) (+ 1/2 (+ (* -1/2 (cos phi1)) (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))))) (* 1/2 (* (* phi2 (- (* 1/12 (sin phi1)) (* -1/4 (/ (* (sin phi1) (- (+ (* -1/2 (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (* 1/4 (cos phi1))) (* 1/16 (/ (pow (sin phi1) 2) (+ 1/2 (+ (* -1/2 (cos phi1)) (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))))) (+ 1/2 (+ (* -1/2 (cos phi1)) (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))))) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos phi1)) (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))))))))))>
#<alt (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))>
#<alt (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))>
#<alt (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))>
#<alt (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))>
#<alt (sqrt (+ 1/2 (+ (* -1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))>
#<alt (sqrt (+ 1/2 (+ (* -1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))>
#<alt (sqrt (+ 1/2 (+ (* -1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))>
#<alt (sqrt (+ 1/2 (+ (* -1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))>
#<alt (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg lambda2)))))))))>
#<alt (+ (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg lambda2))))))))) (* 1/4 (* (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg lambda2)))))))))))))>
#<alt (+ (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg lambda2))))))))) (* lambda1 (+ (* 1/4 (* (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg lambda2)))))))))))) (* 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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg lambda2)))))))))))) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg lambda2)))))))))))))))>
#<alt (+ (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg lambda2))))))))) (* lambda1 (+ (* 1/4 (* (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg lambda2)))))))))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg lambda2))))))))))))) (* 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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg lambda2)))))))))))))) (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg lambda2)))))))))))) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg lambda2)))))))))))))))))>
#<alt (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))>
#<alt (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))>
#<alt (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))>
#<alt (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))>
#<alt (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))))))))>
#<alt (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))))))))>
#<alt (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))))))))>
#<alt (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))))))))>
#<alt (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos lambda1))))))))>
#<alt (+ (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos lambda1)))))))) (* -1/4 (* (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos lambda1))))))))))))>
#<alt (+ (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos lambda1)))))))) (* lambda2 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda1))) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos lambda1))))))))))) (* 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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos lambda1))))))))))) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos lambda1))))))))))))))>
#<alt (+ (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos lambda1)))))))) (* lambda2 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda1))) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos lambda1))))))))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos 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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos lambda1)))))))))))) (* 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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos lambda1))))))))))))) (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos lambda1))))))))))) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos lambda1))))))))))))))))>
#<alt (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))>
#<alt (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))>
#<alt (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))>
#<alt (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))>
#<alt (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))))))))>
#<alt (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))))))))>
#<alt (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))))))))>
#<alt (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos (neg phi2))) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos (neg phi2))) (+ (* 1/2 (* phi1 (sin (neg phi2)))) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos (neg phi2))) (+ (* phi1 (+ (* 1/2 (sin (neg phi2))) (* phi1 (+ (* -1/2 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (* 1/4 (cos (neg phi2))))))) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos (neg phi2))) (+ (* phi1 (+ (* 1/2 (sin (neg phi2))) (* phi1 (+ (* -1/2 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (+ (* -1/12 (* phi1 (sin (neg phi2)))) (* 1/4 (cos (neg phi2)))))))) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos phi1)) (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos phi1)) (+ (* -1/2 (* phi2 (sin phi1))) (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos phi1)) (+ (* phi2 (+ (* -1/2 (sin phi1)) (* phi2 (+ (* -1/2 (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (* 1/4 (cos phi1)))))) (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos phi1)) (+ (* phi2 (+ (* -1/2 (sin phi1)) (* phi2 (+ (* -1/2 (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (+ (* 1/12 (* phi2 (sin phi1))) (* 1/4 (cos phi1))))))) (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg lambda2))))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (+ (* 1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg lambda2)))))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (+ (* lambda1 (+ (* 1/4 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))) (* 1/2 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg lambda2)))))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (+ (* 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))))))))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg lambda2)))))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos lambda1)))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos lambda1))))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (+ (* lambda2 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* 1/4 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos lambda1))))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (+ (* 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)))))))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos lambda1))))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))))>
#<alt (* 2 (* R (atan2 (sqrt (- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (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) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (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) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (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) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (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) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (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) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (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) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (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) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (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) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (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) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (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) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (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) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (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) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 (- lambda1 lambda2)))>
#<alt (+ (sin (* 1/2 (- lambda1 lambda2))) (* -1/4 (/ (* phi1 phi2) (sin (* 1/2 (- lambda1 lambda2))))))>
#<alt (+ (sin (* 1/2 (- lambda1 lambda2))) (* phi1 (+ (* -1/4 (/ phi2 (sin (* 1/2 (- lambda1 lambda2))))) (* 1/2 (/ (* phi1 (- (+ 1/4 (* -1/2 (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (* 1/16 (/ (pow phi2 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))))) (sin (* 1/2 (- lambda1 lambda2))))))))>
#<alt (+ (sin (* 1/2 (- lambda1 lambda2))) (* phi1 (+ (* -1/4 (/ phi2 (sin (* 1/2 (- lambda1 lambda2))))) (* phi1 (+ (* -1/2 (/ (* phi1 (+ (* -1/4 (/ (* phi2 (- (+ 1/4 (* -1/2 (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (* 1/16 (/ (pow phi2 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))))) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (* -1/12 phi2))) (sin (* 1/2 (- lambda1 lambda2))))) (* 1/2 (/ (- (+ 1/4 (* -1/2 (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (* 1/16 (/ (pow phi2 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (sqrt (- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))>
#<alt (sqrt (- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))>
#<alt (sqrt (- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))>
#<alt (sqrt (- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))>
#<alt (sqrt (- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))>
#<alt (sqrt (- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))>
#<alt (sqrt (- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))>
#<alt (sqrt (- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))>
#<alt (sqrt (- (+ (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))>
#<alt (+ (sqrt (- (+ (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (* 1/2 (* (* lambda1 (* (cos phi1) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (- (+ (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))))))>
#<alt (+ (sqrt (- (+ (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2))) (- (+ (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))))) (sqrt (/ 1 (- (+ (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))))) (* 1/2 (* (* (cos phi1) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (sqrt (/ 1 (- (+ (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))))))))>
#<alt (+ (sqrt (- (+ (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (* lambda1 (+ (* 1/2 (* (* (cos phi1) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (sqrt (/ 1 (- (+ (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (+ (* -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 (* -1/2 lambda2)) (* (sin (* -1/2 lambda2)) (- (* (cos phi1) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2))) (- (+ (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))))))) (- (+ (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))))) (sqrt (/ 1 (- (+ (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))))) (* 1/2 (* (- (* (cos phi1) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2))) (- (+ (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))))) (sqrt (/ 1 (- (+ (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))))))))))>
#<alt (sqrt (- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))>
#<alt (sqrt (- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))>
#<alt (sqrt (- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))>
#<alt (sqrt (- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))>
#<alt (sqrt (- (+ (* (cos phi1) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))>
#<alt (sqrt (- (+ (* (cos phi1) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))>
#<alt (sqrt (- (+ (* (cos phi1) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))>
#<alt (sqrt (- (+ (* (cos phi1) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))>
#<alt (sqrt (- (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))>
#<alt (+ (sqrt (- (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (* -1/2 (* (* lambda2 (* (cos phi1) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (- (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))))))>
#<alt (+ (sqrt (- (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (sqrt (/ 1 (- (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2))) (- (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 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)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))))))))>
#<alt (+ (sqrt (- (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (sqrt (/ 1 (- (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))))) (* lambda2 (+ (* 1/2 (* (* lambda2 (- (* (cos phi1) (+ (* 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 (* 1/2 lambda1)) (* (sin (* 1/2 lambda1)) (- (* (cos phi1) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2))) (- (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))))))) (- (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 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)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))))) (* 1/2 (* (- (* (cos phi1) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2))) (- (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 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)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))))))))))>
#<alt (sqrt (- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))>
#<alt (sqrt (- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))>
#<alt (sqrt (- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))>
#<alt (sqrt (- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))>
#<alt (sqrt (- (+ (* (cos phi1) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))>
#<alt (sqrt (- (+ (* (cos phi1) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))>
#<alt (sqrt (- (+ (* (cos phi1) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))>
#<alt (sqrt (- (+ (* (cos phi1) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))>
#<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/8 (* (* phi2 (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2))) (sqrt (/ 1 (pow (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) 3))))))))>
#<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/8 (* (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (sqrt (/ 1 (pow (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) 3))))) (* -1/16 (* (* phi2 (* (pow (cos (* 1/2 phi1)) 3) (pow (sin (* 1/2 phi1)) 3))) (sqrt (/ 1 (pow (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) 5))))))))))>
#<alt (* (sqrt (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (sqrt -1))>
#<alt (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (/ (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (sqrt -1)))) (* (sqrt (/ (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) phi2)) (sqrt -1))))>
#<alt (* phi2 (+ (* -1/8 (* (sqrt (/ 1 (* (pow phi2 5) (* (pow (cos (* 1/2 phi1)) 3) (pow (sin (* 1/2 phi1)) 3))))) (/ (pow (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) 2) (pow (sqrt -1) 3)))) (+ (* 1/2 (* (sqrt (/ 1 (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (/ (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (sqrt -1)))) (* (sqrt (/ (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) phi2)) (sqrt -1)))))>
#<alt (* phi2 (+ (* -1/8 (* (sqrt (/ 1 (* (pow phi2 5) (* (pow (cos (* 1/2 phi1)) 3) (pow (sin (* 1/2 phi1)) 3))))) (/ (pow (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) 2) (pow (sqrt -1) 3)))) (+ (* 1/16 (* (sqrt (/ 1 (* (pow phi2 7) (* (pow (cos (* 1/2 phi1)) 5) (pow (sin (* 1/2 phi1)) 5))))) (/ (pow (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) 3) (pow (sqrt -1) 5)))) (+ (* 1/2 (* (sqrt (/ 1 (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (/ (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (sqrt -1)))) (* (sqrt (/ (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) phi2)) (sqrt -1))))))>
#<alt (* -1 (* (sqrt (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (sqrt -1)))>
#<alt (* -1 (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (* (pow phi2 3) (* (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 (* 1/2 phi1)) (sin (* 1/2 phi1))) phi2)) (sqrt -1)))))>
#<alt (* -1 (* phi2 (+ (* -1/8 (* (sqrt (/ 1 (* (pow phi2 5) (* (pow (cos (* 1/2 phi1)) 3) (pow (sin (* 1/2 phi1)) 3))))) (* (sqrt -1) (pow (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) 2)))) (+ (* 1/2 (* (sqrt (/ 1 (* (pow phi2 3) (* (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 (* 1/2 phi1)) (sin (* 1/2 phi1))) phi2)) (sqrt -1))))))>
#<alt (* -1 (* phi2 (+ (* -1/8 (* (sqrt (/ 1 (* (pow phi2 5) (* (pow (cos (* 1/2 phi1)) 3) (pow (sin (* 1/2 phi1)) 3))))) (* (sqrt -1) (pow (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) 2)))) (+ (* 1/16 (* (sqrt (/ 1 (* (pow phi2 7) (* (pow (cos (* 1/2 phi1)) 5) (pow (sin (* 1/2 phi1)) 5))))) (* (sqrt -1) (pow (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) 3)))) (+ (* 1/2 (* (sqrt (/ 1 (* (pow phi2 3) (* (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 (* 1/2 phi1)) (sin (* 1/2 phi1))) phi2)) (sqrt -1)))))))>
#<alt (pow (sin (* 1/2 (- lambda1 lambda2))) 2)>
#<alt (+ (* -1/2 (* phi1 phi2)) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))>
#<alt (+ (* phi1 (- (* phi1 (+ 1/4 (* -1/2 (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (* 1/2 phi2))) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))>
#<alt (+ (* phi1 (- (* phi1 (+ 1/4 (+ (* -1/2 (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* 1/12 (* phi1 phi2))))) (* 1/2 phi2))) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))>
#<alt (- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))>
#<alt (- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))>
#<alt (- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))>
#<alt (- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))>
#<alt (- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))>
#<alt (- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))>
#<alt (- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))>
#<alt (- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))>
#<alt (- (+ (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))>
#<alt (- (+ (* lambda1 (* (cos phi1) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (+ (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))>
#<alt (- (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* (cos phi1) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))>
#<alt (- (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (* (cos phi1) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))>
#<alt (- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))>
#<alt (- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))>
#<alt (- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))>
#<alt (- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))>
#<alt (- (+ (* (cos phi1) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))>
#<alt (- (+ (* (cos phi1) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))>
#<alt (- (+ (* (cos phi1) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))>
#<alt (- (+ (* (cos phi1) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))>
#<alt (- (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))>
#<alt (- (+ (* -1 (* lambda2 (* (cos phi1) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))>
#<alt (- (+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (* lambda2 (* (cos phi1) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))>
#<alt (- (+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (* lambda2 (+ (* lambda2 (* (cos phi1) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* (cos phi1) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))) (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))>
#<alt (- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))>
#<alt (- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))>
#<alt (- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))>
#<alt (- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))>
#<alt (- (+ (* (cos phi1) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))>
#<alt (- (+ (* (cos phi1) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))>
#<alt (- (+ (* (cos phi1) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))>
#<alt (- (+ (* (cos phi1) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))>
#<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 (+ (* -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 (* (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 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))>
#<alt (* phi2 (- (+ (/ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) phi2) (/ (pow (sin (* 1/2 phi1)) 2) phi2)) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))>
#<alt (* phi2 (- (+ (/ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) phi2) (/ (pow (sin (* 1/2 phi1)) 2) phi2)) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))>
#<alt (* phi2 (- (+ (/ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) phi2) (/ (pow (sin (* 1/2 phi1)) 2) phi2)) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))>
#<alt (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))>
#<alt (* -1 (* phi2 (- (* -1 (/ (+ (* (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)))))))>
#<alt (* -1 (* phi2 (- (* -1 (/ (+ (* (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)))))))>
#<alt (* -1 (* phi2 (- (* -1 (/ (+ (* (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)))))))>
#<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 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)) 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 (neg (+ lambda2 (* -1 lambda1)))))>
#<alt (- 1 (cos (neg (+ lambda2 (* -1 lambda1)))))>
#<alt (- 1 (cos (neg (+ lambda2 (* -1 lambda1)))))>
#<alt (- 1 (cos (neg (+ 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 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 (- 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/2 (pow lambda1 2))>
#<alt (- (* -1 (* lambda1 lambda2)) (* -1/2 (pow lambda1 2)))>
#<alt (- (* lambda2 (- (* lambda2 (- 1/2 (* 1/4 (pow lambda1 2)))) lambda1)) (* -1/2 (pow lambda1 2)))>
#<alt (- (* lambda2 (- (* lambda2 (- (+ 1/2 (* 1/6 (* lambda1 lambda2))) (* 1/4 (pow lambda1 2)))) lambda1)) (* -1/2 (pow lambda1 2)))>
#<alt (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))>
#<alt (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))>
#<alt (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))>
#<alt (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))>
#<alt (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))>
#<alt (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))>
#<alt (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))>
#<alt (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))>
#<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 (- (* 1/2 (* lambda1 (cos lambda2))) (sin lambda2)))) (cos lambda2))>
#<alt (* 1/2 (* (pow lambda1 2) (cos lambda2)))>
#<alt (* (pow lambda1 2) (- (* -1 (/ (sin lambda2) lambda1)) (* -1/2 (cos lambda2))))>
#<alt (* (pow lambda1 2) (- (/ 1 (pow lambda1 2)) (+ (* -1/2 (cos lambda2)) (+ (/ (cos lambda2) (pow lambda1 2)) (/ (sin lambda2) lambda1)))))>
#<alt (* (pow lambda1 2) (- (/ 1 (pow lambda1 2)) (+ (* -1/2 (cos lambda2)) (+ (/ (cos lambda2) (pow lambda1 2)) (/ (sin lambda2) lambda1)))))>
#<alt (* 1/2 (* (pow lambda1 2) (cos lambda2)))>
#<alt (* (pow lambda1 2) (- (* -1 (/ (sin lambda2) lambda1)) (* -1/2 (cos lambda2))))>
#<alt (* (pow lambda1 2) (- (* -1 (/ (- (* -1 (/ (- 1 (cos lambda2)) lambda1)) (* -1 (sin lambda2))) lambda1)) (* -1/2 (cos lambda2))))>
#<alt (* (pow lambda1 2) (- (* -1 (/ (- (* -1 (/ (- 1 (cos lambda2)) lambda1)) (* -1 (sin lambda2))) lambda1)) (* -1/2 (cos lambda2))))>
#<alt (+ 1/2 (* -1/2 (cos (neg phi2))))>
#<alt (+ 1/2 (+ (* -1/2 (cos (neg phi2))) (* 1/2 (* phi1 (sin (neg phi2))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos (neg phi2))) (* phi1 (+ (* 1/4 (* phi1 (cos (neg phi2)))) (* 1/2 (sin (neg phi2)))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos (neg phi2))) (* phi1 (+ (* 1/2 (sin (neg phi2))) (* phi1 (+ (* -1/12 (* phi1 (sin (neg phi2)))) (* 1/4 (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 (cos phi1)) (* -1/2 (* phi2 (sin phi1)))))>
#<alt (+ 1/2 (+ (* -1/2 (cos phi1)) (* phi2 (+ (* -1/2 (sin phi1)) (* 1/4 (* phi2 (cos phi1)))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos phi1)) (* phi2 (+ (* -1/2 (sin phi1)) (* phi2 (+ (* 1/12 (* phi2 (sin phi1))) (* 1/4 (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/2 (* -1/2 (cos (neg lambda2))))>
#<alt (+ 1/2 (+ (* -1/2 (cos (neg lambda2))) (* 1/2 (* lambda1 (sin (neg lambda2))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos (neg lambda2))) (* lambda1 (+ (* 1/4 (* lambda1 (cos (neg lambda2)))) (* 1/2 (sin (neg lambda2)))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos (neg lambda2))) (* lambda1 (+ (* 1/2 (sin (neg lambda2))) (* lambda1 (+ (* -1/12 (* lambda1 (sin (neg lambda2)))) (* 1/4 (cos (neg lambda2)))))))))>
#<alt (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))>
#<alt (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))>
#<alt (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))>
#<alt (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))>
#<alt (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))>
#<alt (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))>
#<alt (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))>
#<alt (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))>
#<alt (+ 1/2 (* -1/2 (cos lambda1)))>
#<alt (+ 1/2 (+ (* -1/2 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))>
#<alt (+ 1/2 (+ (* -1/2 (cos lambda1)) (* lambda2 (+ (* -1/2 (sin lambda1)) (* 1/4 (* lambda2 (cos lambda1)))))))>
#<alt (+ 1/2 (+ (* -1/2 (cos lambda1)) (* lambda2 (+ (* -1/2 (sin lambda1)) (* lambda2 (+ (* 1/12 (* lambda2 (sin lambda1))) (* 1/4 (cos lambda1))))))))>
#<alt (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))>
#<alt (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))>
#<alt (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))>
#<alt (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))>
#<alt (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))>
#<alt (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))>
#<alt (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))>
#<alt (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))>
#<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))))>

Calls

327 calls:

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

rewrite415.0ms (0.8%)

Algorithm

1×	batch-egg-rewrite

Rules

3784×	`-lowering-.f32`
3784×	`-lowering-.f64`
2348×	`/-lowering-/.f32`
2348×	`/-lowering-/.f64`
1898×	`+-lowering-+.f64`

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	122	1139
1	733	828
2	7653	828
0	8564	828

Stop Event

1×	iter limit
1×	node limit

Counts

32 → 464

Calls

Call 1

Inputs
(* (atan2 (sqrt (+ (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)))))) (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))) (* (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))) (* (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))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2) (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2)))))
(* (atan2 (sqrt (+ 1/2 (+ (* (* (cos phi1) 1/2) (- 1 (cos (- lambda1 lambda2)))) (* (cos phi1) -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 (+ (* (* (cos phi1) 1/2) (- 1 (cos (- lambda1 lambda2)))) (* (cos phi1) -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 (+ (* (* (cos phi1) 1/2) (- 1 (cos (- lambda1 lambda2)))) (* (cos phi1) -1/2))))
(+ 1/2 (+ (* (* (cos phi1) 1/2) (- 1 (cos (- lambda1 lambda2)))) (* (cos phi1) -1/2)))
(* (atan2 (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (+ (cos lambda2) (* lambda1 (+ (* -1/2 (* lambda1 (cos lambda2))) (sin lambda2)))))) 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 lambda2) (* lambda1 (+ (* -1/2 (* lambda1 (cos lambda2))) (sin lambda2)))))) 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 lambda2) (* lambda1 (+ (* -1/2 (* lambda1 (cos lambda2))) (sin lambda2)))))) 2)))
(+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (+ (cos lambda2) (* lambda1 (+ (* -1/2 (* lambda1 (cos lambda2))) (sin lambda2)))))) 2))
(* (atan2 (sqrt (+ (+ 1/2 (* (cos (* (- phi1 phi2) 1)) -1/2)) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (- (* (sin (/ lambda1 2)) (cos (/ lambda2 2))) (* (cos (/ lambda1 2)) (sin (/ lambda2 2)))) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2))))) (* R 2))
(atan2 (sqrt (+ (+ 1/2 (* (cos (* (- phi1 phi2) 1)) -1/2)) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (- (* (sin (/ lambda1 2)) (cos (/ lambda2 2))) (* (cos (/ lambda1 2)) (sin (/ lambda2 2)))) (sin (/ (- lambda1 lambda2) -2)))) (pow (sin (/ (- phi1 phi2) 2)) 2)))))
(sqrt (+ (+ 1/2 (* (cos (* (- phi1 phi2) 1)) -1/2)) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))
(+ (+ 1/2 (* (cos (* (- phi1 phi2) 1)) -1/2)) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))
(* (atan2 (sqrt (- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* phi1 1/2)) 2)) (* phi2 (* (sin (* phi1 1/2)) (cos (* phi1 1/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 (- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* phi1 1/2)) 2)) (* phi2 (* (sin (* phi1 1/2)) (cos (* phi1 1/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 (- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* phi1 1/2)) 2)) (* phi2 (* (sin (* phi1 1/2)) (cos (* phi1 1/2))))))
(- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* phi1 1/2)) 2)) (* phi2 (* (sin (* phi1 1/2)) (cos (* phi1 1/2)))))
(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)))
(+ (cos (* (- lambda1 lambda2) 1)) -1)
(- 1 (cos (- lambda1 lambda2)))
(cos (* (- lambda1 lambda2) 1))
(- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2)))))
(- 1 (+ (cos lambda2) (* lambda1 (+ (* -1/2 (* lambda1 (cos lambda2))) (sin lambda2)))))
(+ 1/2 (* (cos (* (- phi1 phi2) 1)) -1/2))
(+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))
(cos (- lambda1 lambda2))
(sin (* 1/2 (- lambda1 lambda2)))

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

5550×	`-lowering-.f32`
5550×	`-lowering-.f64`
4132×	`+-lowering-+.f64`
4132×	`+-lowering-+.f32`
1056×	`+-commutative`

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	2040	61855
1	6018	59777
0	8154	59777

Stop Event

1×	iter limit
1×	node limit

Counts

1308 → 1308

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 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (neg (+ lambda2 (* -1 lambda1)))))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (neg (+ lambda2 (* -1 lambda1)))))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (neg (+ lambda2 (* -1 lambda1)))))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (neg (+ lambda2 (* -1 lambda1)))))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (+ lambda1 (* -1 lambda2))))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (+ lambda1 (* -1 lambda2))))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (+ lambda1 (* -1 lambda2))))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (+ lambda1 (* -1 lambda2))))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (neg (+ lambda2 (* -1 lambda1)))))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (neg (+ lambda2 (* -1 lambda1)))))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (neg (+ lambda2 (* -1 lambda1)))))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (neg (+ lambda2 (* -1 lambda1)))))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (+ lambda1 (* -1 lambda2))))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (+ lambda1 (* -1 lambda2))))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (+ lambda1 (* -1 lambda2))))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (+ lambda1 (* -1 lambda2))))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2)))))
(+ (* 1/2 (* (/ (* (pow phi1 2) (+ 1/4 (* -1/4 (- 1 (cos (- lambda1 lambda2)))))) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (- lambda1 lambda2))))))) (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))))
(+ (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (* (pow phi1 2) (+ (* 1/2 (* (/ (* (pow phi1 2) (- (* 1/48 (- 1 (cos (- lambda1 lambda2)))) (+ 1/48 (* 1/4 (/ (pow (+ 1/4 (* -1/4 (- 1 (cos (- lambda1 lambda2))))) 2) (* (pow (sqrt 1/2) 2) (- 1 (cos (- lambda1 lambda2))))))))) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (* (/ (+ 1/4 (* -1/4 (- 1 (cos (- lambda1 lambda2))))) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (- lambda1 lambda2))))))))))
(+ (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (* (pow phi1 2) (+ (* 1/2 (* (/ (+ 1/4 (* -1/4 (- 1 (cos (- lambda1 lambda2))))) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (- lambda1 lambda2))))))) (* (pow phi1 2) (+ (* 1/2 (* (/ (* (pow phi1 2) (- (+ 1/1440 (* -1/1440 (- 1 (cos (- lambda1 lambda2))))) (* 1/2 (/ (* (+ 1/4 (* -1/4 (- 1 (cos (- lambda1 lambda2))))) (- (* 1/48 (- 1 (cos (- lambda1 lambda2)))) (+ 1/48 (* 1/4 (/ (pow (+ 1/4 (* -1/4 (- 1 (cos (- lambda1 lambda2))))) 2) (* (pow (sqrt 1/2) 2) (- 1 (cos (- lambda1 lambda2))))))))) (* (pow (sqrt 1/2) 2) (- 1 (cos (- lambda1 lambda2)))))))) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (* (/ (- (* 1/48 (- 1 (cos (- lambda1 lambda2)))) (+ 1/48 (* 1/4 (/ (pow (+ 1/4 (* -1/4 (- 1 (cos (- lambda1 lambda2))))) 2) (* (pow (sqrt 1/2) 2) (- 1 (cos (- lambda1 lambda2)))))))) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (- lambda1 lambda2))))))))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (neg lambda2))))))))
(+ (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (neg lambda2)))))))) (* 1/4 (* (* lambda1 (* (cos phi1) (sin (neg lambda2)))) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (neg lambda2))))))))))))
(+ (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (neg lambda2)))))))) (* lambda1 (+ (* 1/4 (* (* (cos phi1) (sin (neg lambda2))) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (neg lambda2))))))))))) (* 1/2 (* (* lambda1 (- (* 1/4 (* (cos phi1) (cos (neg lambda2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (pow (sin (neg lambda2)) 2)) (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (neg lambda2))))))))))) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (neg lambda2))))))))))))))
(+ (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (neg lambda2)))))))) (* lambda1 (+ (* 1/4 (* (* (cos phi1) (sin (neg lambda2))) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (neg lambda2))))))))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (neg lambda2))))))))) (- (* 1/4 (* (cos phi1) (cos (neg lambda2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (pow (sin (neg lambda2)) 2)) (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (neg lambda2)))))))))))) (* 1/2 (* (* lambda1 (- (* -1/12 (* (cos phi1) (sin (neg lambda2)))) (* 1/4 (/ (* (cos phi1) (* (sin (neg lambda2)) (- (* 1/4 (* (cos phi1) (cos (neg lambda2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (pow (sin (neg lambda2)) 2)) (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (neg lambda2)))))))))))) (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (neg lambda2))))))))))) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (neg lambda2))))))))))))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (neg (+ lambda2 (* -1 lambda1))))))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (neg (+ lambda2 (* -1 lambda1))))))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (neg (+ lambda2 (* -1 lambda1))))))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (neg (+ lambda2 (* -1 lambda1))))))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos lambda1)))))))
(+ (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos lambda1))))))) (* -1/4 (* (* lambda2 (* (cos phi1) (sin lambda1))) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos lambda1)))))))))))
(+ (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos lambda1))))))) (* lambda2 (+ (* -1/4 (* (* (cos phi1) (sin lambda1)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos lambda1)))))))))) (* 1/2 (* (* lambda2 (- (* 1/4 (* (cos lambda1) (cos phi1))) (* 1/16 (/ (* (pow (cos phi1) 2) (pow (sin lambda1) 2)) (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos lambda1)))))))))) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos lambda1)))))))))))))
(+ (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos lambda1))))))) (* lambda2 (+ (* -1/4 (* (* (cos phi1) (sin lambda1)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos lambda1)))))))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos lambda1)))))))) (- (* 1/4 (* (cos lambda1) (cos phi1))) (* 1/16 (/ (* (pow (cos phi1) 2) (pow (sin lambda1) 2)) (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos lambda1))))))))))) (* 1/2 (* (* lambda2 (- (* 1/12 (* (cos phi1) (sin lambda1))) (* -1/4 (/ (* (cos phi1) (* (sin lambda1) (- (* 1/4 (* (cos lambda1) (cos phi1))) (* 1/16 (/ (* (pow (cos phi1) 2) (pow (sin lambda1) 2)) (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos lambda1))))))))))) (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos lambda1)))))))))) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos lambda1)))))))))))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))))
(* 1/2 (- 1 (cos (- lambda1 lambda2))))
(+ (* 1/2 (- 1 (cos (- lambda1 lambda2)))) (* (pow phi1 2) (+ 1/4 (* -1/4 (- 1 (cos (- lambda1 lambda2)))))))
(+ (* 1/2 (- 1 (cos (- lambda1 lambda2)))) (* (pow phi1 2) (+ 1/4 (+ (* -1/4 (- 1 (cos (- lambda1 lambda2)))) (* (pow phi1 2) (- (* 1/48 (- 1 (cos (- lambda1 lambda2)))) 1/48))))))
(+ (* 1/2 (- 1 (cos (- lambda1 lambda2)))) (* (pow phi1 2) (+ 1/4 (+ (* -1/4 (- 1 (cos (- lambda1 lambda2)))) (* (pow phi1 2) (- (+ (* 1/48 (- 1 (cos (- lambda1 lambda2)))) (* (pow phi1 2) (+ 1/1440 (* -1/1440 (- 1 (cos (- lambda1 lambda2))))))) 1/48))))))
(+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))
(+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))
(+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))
(+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))
(+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))
(+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))
(+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))
(+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))
(+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (neg lambda2)))))))
(+ 1/2 (+ (* -1/2 (cos phi1)) (+ (* 1/2 (* lambda1 (* (cos phi1) (sin (neg lambda2))))) (* 1/2 (* (cos phi1) (- 1 (cos (neg lambda2))))))))
(+ 1/2 (+ (* -1/2 (cos phi1)) (+ (* 1/2 (* (cos phi1) (- 1 (cos (neg lambda2))))) (* lambda1 (+ (* 1/4 (* lambda1 (* (cos phi1) (cos (neg lambda2))))) (* 1/2 (* (cos phi1) (sin (neg lambda2)))))))))
(+ 1/2 (+ (* -1/2 (cos phi1)) (+ (* 1/2 (* (cos phi1) (- 1 (cos (neg lambda2))))) (* lambda1 (+ (* 1/2 (* (cos phi1) (sin (neg lambda2)))) (* lambda1 (+ (* -1/12 (* lambda1 (* (cos phi1) (sin (neg lambda2))))) (* 1/4 (* (cos phi1) (cos (neg lambda2)))))))))))
(+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))
(+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))
(+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))
(+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))
(+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (neg (+ lambda2 (* -1 lambda1)))))))))
(+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (neg (+ lambda2 (* -1 lambda1)))))))))
(+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (neg (+ lambda2 (* -1 lambda1)))))))))
(+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (neg (+ lambda2 (* -1 lambda1)))))))))
(+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos lambda1))))))
(+ 1/2 (+ (* -1/2 (cos phi1)) (+ (* -1/2 (* lambda2 (* (cos phi1) (sin lambda1)))) (* 1/2 (* (cos phi1) (- 1 (cos lambda1)))))))
(+ 1/2 (+ (* -1/2 (cos phi1)) (+ (* 1/2 (* (cos phi1) (- 1 (cos lambda1)))) (* lambda2 (+ (* -1/2 (* (cos phi1) (sin lambda1))) (* 1/4 (* lambda2 (* (cos lambda1) (cos phi1)))))))))
(+ 1/2 (+ (* -1/2 (cos phi1)) (+ (* 1/2 (* (cos phi1) (- 1 (cos lambda1)))) (* lambda2 (+ (* -1/2 (* (cos phi1) (sin lambda1))) (* lambda2 (+ (* 1/12 (* lambda2 (* (cos phi1) (sin lambda1)))) (* 1/4 (* (cos lambda1) (cos phi1))))))))))
(+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))
(+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))
(+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))
(+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))
(+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (+ lambda1 (* -1 lambda2))))))))
(+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (+ lambda1 (* -1 lambda2))))))))
(+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (+ lambda1 (* -1 lambda2))))))))
(+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (+ lambda1 (* -1 lambda2))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos 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 lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos 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 lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos 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 lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos 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 lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (+ (* -1/2 (* (pow lambda1 2) (cos lambda2))) (* lambda1 (sin 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 lambda2) (+ (* -1/2 (* (pow lambda1 2) (cos lambda2))) (* lambda1 (sin 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 lambda2) (+ (* -1/2 (* (pow lambda1 2) (cos lambda2))) (* lambda1 (sin 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 lambda2) (+ (* -1/2 (* (pow lambda1 2) (cos lambda2))) (* lambda1 (sin 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 lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos 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 lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos 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 lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos 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 lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos 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 lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (+ (* -1/2 (* (pow lambda1 2) (cos lambda2))) (* lambda1 (sin 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 lambda2) (+ (* -1/2 (* (pow lambda1 2) (cos lambda2))) (* lambda1 (sin 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 lambda2) (+ (* -1/2 (* (pow lambda1 2) (cos lambda2))) (* lambda1 (sin 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 lambda2) (+ (* -1/2 (* (pow lambda1 2) (cos lambda2))) (* lambda1 (sin 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 lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos (neg phi2)))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos (neg phi2))))) (* 1/4 (* (* phi1 (sin (neg phi2))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos (neg phi2)))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos (neg phi2))))) (* phi1 (+ (* 1/4 (* (sin (neg phi2)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos (neg phi2)))))))) (* 1/2 (* (* phi1 (- (* -1/4 (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))) (+ (* -1/4 (cos (neg phi2))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos (neg phi2))))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos (neg phi2)))))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos (neg phi2))))) (* phi1 (+ (* 1/4 (* (sin (neg phi2)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos 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 lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))) (+ (* -1/4 (cos (neg phi2))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos (neg phi2))))))))) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos (neg phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos (neg phi2)))))))) (* 1/2 (* (- (* -1/4 (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))) (+ (* -1/4 (cos (neg phi2))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos (neg phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos (neg phi2)))))))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos phi1))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos phi1)))) (* -1/4 (* (* phi2 (sin phi1)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos phi1))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos phi1)))) (* phi2 (+ (* -1/4 (* (sin phi1) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos phi1))))))) (* 1/2 (* (* phi2 (- (* -1/4 (* (cos phi1) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))) (+ (* -1/4 (cos phi1)) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos phi1)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos phi1))))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos phi1)))) (* phi2 (+ (* -1/4 (* (sin phi1) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos phi1))))))) (* phi2 (+ (* -1/2 (* (* phi2 (+ (* -1/4 (/ (* (sin phi1) (- (* -1/4 (* (cos phi1) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))) (+ (* -1/4 (cos phi1)) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos phi1)))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos phi1))))) (* -1/12 (sin phi1)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos phi1))))))) (* 1/2 (* (- (* -1/4 (* (cos phi1) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))) (+ (* -1/4 (cos phi1)) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos phi1))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos phi1))))))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))
(sqrt (- (+ 1/2 (* 1/4 (* (pow lambda1 2) (* (cos phi1) (cos phi2))))) (* 1/2 (cos (- phi1 phi2)))))
(+ (sqrt (- (+ 1/2 (* 1/4 (* (pow lambda1 2) (* (cos phi1) (cos phi2))))) (* 1/2 (cos (- phi1 phi2))))) (* -1/4 (* (* lambda1 (* lambda2 (* (cos phi1) (cos phi2)))) (sqrt (/ 1 (- (+ 1/2 (* 1/4 (* (pow lambda1 2) (* (cos phi1) (cos phi2))))) (* 1/2 (cos (- phi1 phi2)))))))))
(+ (sqrt (- (+ 1/2 (* 1/4 (* (pow lambda1 2) (* (cos phi1) (cos phi2))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda2 (+ (* -1/4 (* (* lambda1 (* (cos phi1) (cos phi2))) (sqrt (/ 1 (- (+ 1/2 (* 1/4 (* (pow lambda1 2) (* (cos phi1) (cos phi2))))) (* 1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (* lambda2 (- (* 1/2 (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/4 (pow lambda1 2)))))) (* 1/16 (/ (* (pow lambda1 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (+ 1/2 (* 1/4 (* (pow lambda1 2) (* (cos phi1) (cos phi2))))) (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/4 (* (pow lambda1 2) (* (cos phi1) (cos phi2))))) (* 1/2 (cos (- phi1 phi2)))))))))))
(+ (sqrt (- (+ 1/2 (* 1/4 (* (pow lambda1 2) (* (cos phi1) (cos phi2))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda2 (+ (* -1/4 (* (* lambda1 (* (cos phi1) (cos phi2))) (sqrt (/ 1 (- (+ 1/2 (* 1/4 (* (pow lambda1 2) (* (cos phi1) (cos phi2))))) (* 1/2 (cos (- phi1 phi2)))))))) (* lambda2 (+ (* 1/2 (* (* lambda2 (- (* 1/12 (* lambda1 (* (cos phi1) (cos phi2)))) (* -1/4 (/ (* lambda1 (* (cos phi1) (* (cos phi2) (- (* 1/2 (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/4 (pow lambda1 2)))))) (* 1/16 (/ (* (pow lambda1 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (+ 1/2 (* 1/4 (* (pow lambda1 2) (* (cos phi1) (cos phi2))))) (* 1/2 (cos (- phi1 phi2)))))))))) (- (+ 1/2 (* 1/4 (* (pow lambda1 2) (* (cos phi1) (cos phi2))))) (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/4 (* (pow lambda1 2) (* (cos phi1) (cos phi2))))) (* 1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (- (* 1/2 (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/4 (pow lambda1 2)))))) (* 1/16 (/ (* (pow lambda1 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (+ 1/2 (* 1/4 (* (pow lambda1 2) (* (cos phi1) (cos phi2))))) (* 1/2 (cos (- phi1 phi2))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/4 (* (pow lambda1 2) (* (cos phi1) (cos phi2))))) (* 1/2 (cos (- phi1 phi2)))))))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 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/8 (* (* lambda1 (* (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))))))))))) (sqrt (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))) 3))))) (* 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)))))))))))))
(* 1/2 (* lambda1 (sqrt (* (cos lambda2) (* (cos phi1) (cos phi2))))))
(* lambda1 (+ (* -1/2 (* (/ (sin lambda2) lambda1) (sqrt (/ (* (cos phi1) (cos phi2)) (cos lambda2))))) (* 1/2 (sqrt (* (cos lambda2) (* (cos phi1) (cos phi2)))))))
(* lambda1 (+ (* -1/2 (* (/ (sin lambda2) lambda1) (sqrt (/ (* (cos phi1) (cos phi2)) (cos lambda2))))) (+ (* 1/2 (sqrt (* (cos lambda2) (* (cos phi1) (cos phi2))))) (* (/ (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (+ (* 1/4 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda2) 2))) (cos lambda2))) (* 1/2 (cos (- phi1 phi2))))) (pow lambda1 2)) (sqrt (/ 1 (* (cos lambda2) (* (cos phi1) (cos phi2)))))))))
(* lambda1 (+ (* -1/2 (* (/ (sin lambda2) lambda1) (sqrt (/ (* (cos phi1) (cos phi2)) (cos lambda2))))) (+ (* 1/2 (sqrt (* (cos lambda2) (* (cos phi1) (cos phi2))))) (+ (* (/ (* (sin lambda2) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (+ (* 1/4 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda2) 2))) (cos lambda2))) (* 1/2 (cos (- phi1 phi2)))))) (pow lambda1 3)) (sqrt (/ 1 (* (pow (cos lambda2) 3) (* (cos phi1) (cos phi2)))))) (* (/ (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (+ (* 1/4 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda2) 2))) (cos lambda2))) (* 1/2 (cos (- phi1 phi2))))) (pow lambda1 2)) (sqrt (/ 1 (* (cos lambda2) (* (cos phi1) (cos phi2))))))))))
(* -1/2 (* lambda1 (sqrt (* (cos lambda2) (* (cos phi1) (cos phi2))))))
(* -1 (* lambda1 (+ (* -1/2 (* (/ (sin lambda2) lambda1) (sqrt (/ (* (cos phi1) (cos phi2)) (cos lambda2))))) (* 1/2 (sqrt (* (cos lambda2) (* (cos phi1) (cos phi2))))))))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (* (/ (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (+ (* 1/4 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda2) 2))) (cos lambda2))) (* 1/2 (cos (- phi1 phi2))))) lambda1) (sqrt (/ 1 (* (cos lambda2) (* (cos phi1) (cos phi2))))))) (* 1/2 (* (sqrt (/ (* (cos phi1) (cos phi2)) (cos lambda2))) (sin lambda2)))) lambda1)) (* 1/2 (sqrt (* (cos lambda2) (* (cos phi1) (cos phi2))))))))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* (sqrt (/ 1 (* (cos lambda2) (* (cos phi1) (cos phi2))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (+ (* 1/4 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda2) 2))) (cos lambda2))) (* 1/2 (cos (- phi1 phi2)))))) (* (/ (* (sin lambda2) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (+ (* 1/4 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda2) 2))) (cos lambda2))) (* 1/2 (cos (- phi1 phi2)))))) lambda1) (sqrt (/ 1 (* (pow (cos lambda2) 3) (* (cos phi1) (cos phi2))))))) lambda1)) (* 1/2 (* (sqrt (/ (* (cos phi1) (cos phi2)) (cos lambda2))) (sin lambda2)))) lambda1)) (* 1/2 (sqrt (* (cos lambda2) (* (cos phi1) (cos phi2))))))))
(- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos (neg phi2))))
(- (+ 1/2 (+ (* 1/2 (* phi1 (sin (neg phi2)))) (* 1/2 (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (neg phi2))))
(- (+ 1/2 (+ (* 1/2 (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))) (* phi1 (- (* phi1 (- (* -1/4 (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))) (* -1/4 (cos (neg phi2))))) (* -1/2 (sin (neg phi2))))))) (* 1/2 (cos (neg phi2))))
(- (+ 1/2 (+ (* 1/2 (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))) (* phi1 (- (* phi1 (- (+ (* -1/4 (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos 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 lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos phi1)))
(- (+ 1/2 (+ (* -1/2 (* phi2 (sin phi1))) (* 1/2 (* (cos phi1) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos phi1)))
(- (+ 1/2 (+ (* 1/2 (* (cos phi1) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))) (* phi2 (- (* phi2 (- (* -1/4 (* (cos phi1) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))) (* -1/4 (cos phi1)))) (* 1/2 (sin phi1)))))) (* 1/2 (cos phi1)))
(- (+ 1/2 (+ (* 1/2 (* (cos phi1) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))) (* phi2 (- (* phi2 (- (+ (* -1/4 (* (cos phi1) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos 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 lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(- (+ 1/2 (* 1/4 (* (pow lambda1 2) (* (cos phi1) (cos phi2))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (+ (* -1/2 (* lambda1 (* lambda2 (* (cos phi1) (cos phi2))))) (* 1/4 (* (pow lambda1 2) (* (cos phi1) (cos phi2)))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (+ (* 1/4 (* (pow lambda1 2) (* (cos phi1) (cos phi2)))) (* lambda2 (+ (* -1/2 (* lambda1 (* (cos phi1) (cos phi2)))) (* 1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/4 (pow lambda1 2))))))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (+ (* 1/4 (* (pow lambda1 2) (* (cos phi1) (cos phi2)))) (* lambda2 (+ (* -1/2 (* lambda1 (* (cos phi1) (cos phi2)))) (* lambda2 (+ (* 1/12 (* lambda1 (* lambda2 (* (cos phi1) (cos phi2))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/4 (pow lambda1 2)))))))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin lambda2)))) (* 1/4 (* lambda1 (* (cos lambda2) (* (cos phi1) (cos phi2))))))))) (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin lambda2)))) (* 1/4 (* lambda1 (* (cos lambda2) (* (cos phi1) (cos phi2))))))))) (* 1/2 (cos (- phi1 phi2))))
(* 1/4 (* (pow lambda1 2) (* (cos lambda2) (* (cos phi1) (cos phi2)))))
(* (pow lambda1 2) (+ (* -1/2 (/ (* (cos phi1) (* (cos phi2) (sin lambda2))) lambda1)) (* 1/4 (* (cos lambda2) (* (cos phi1) (cos phi2))))))
(* (pow lambda1 2) (- (+ (* -1/2 (/ (* (cos phi1) (* (cos phi2) (sin lambda2))) lambda1)) (+ (* 1/4 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (+ (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))) (pow lambda1 2))) (/ 1/2 (pow lambda1 2))))) (* 1/2 (/ (cos (- phi1 phi2)) (pow lambda1 2)))))
(* (pow lambda1 2) (- (+ (* -1/2 (/ (* (cos phi1) (* (cos phi2) (sin lambda2))) lambda1)) (+ (* 1/4 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (+ (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))) (pow lambda1 2))) (/ 1/2 (pow lambda1 2))))) (* 1/2 (/ (cos (- phi1 phi2)) (pow lambda1 2)))))
(* 1/4 (* (pow lambda1 2) (* (cos lambda2) (* (cos phi1) (cos phi2)))))
(* (pow lambda1 2) (+ (* -1/2 (/ (* (cos phi1) (* (cos phi2) (sin lambda2))) lambda1)) (* 1/4 (* (cos lambda2) (* (cos phi1) (cos phi2))))))
(* (pow lambda1 2) (+ (* -1 (/ (+ (* -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))))) lambda1)) (* 1/4 (* (cos lambda2) (* (cos phi1) (cos phi2))))))
(* (pow lambda1 2) (+ (* -1 (/ (+ (* -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))))) lambda1)) (* 1/4 (* (cos lambda2) (* (cos phi1) (cos phi2))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (neg phi2))) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))
(+ (sqrt (+ 1/2 (+ (* -1/2 (cos (neg phi2))) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))) (* 1/4 (* (* phi1 (sin (neg phi2))) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg phi2))) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))))))
(+ (sqrt (+ 1/2 (+ (* -1/2 (cos (neg phi2))) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))) (* phi1 (+ (* 1/4 (* (sin (neg phi2)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg phi2))) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))))) (* 1/2 (* (* phi1 (- (+ (* -1/2 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (* 1/4 (cos (neg phi2)))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (+ 1/2 (+ (* -1/2 (cos (neg phi2))) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))))) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg phi2))) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))))))))
(+ (sqrt (+ 1/2 (+ (* -1/2 (cos (neg phi2))) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))) (* phi1 (+ (* 1/4 (* (sin (neg phi2)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg phi2))) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg phi2))) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (- (+ (* -1/2 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (* 1/4 (cos (neg phi2)))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (+ 1/2 (+ (* -1/2 (cos (neg phi2))) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))))) (* 1/2 (* (* phi1 (- (* -1/12 (sin (neg phi2))) (* 1/4 (/ (* (sin (neg phi2)) (- (+ (* -1/2 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (* 1/4 (cos (neg phi2)))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (+ 1/2 (+ (* -1/2 (cos (neg phi2))) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))))) (+ 1/2 (+ (* -1/2 (cos (neg phi2))) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))))) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg phi2))) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))))))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))
(+ (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))) (* -1/4 (* (* phi2 (sin phi1)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos phi1)) (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))))))
(+ (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))) (* phi2 (+ (* -1/4 (* (sin phi1) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos phi1)) (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))))) (* 1/2 (* (* phi2 (- (+ (* -1/2 (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (* 1/4 (cos phi1))) (* 1/16 (/ (pow (sin phi1) 2) (+ 1/2 (+ (* -1/2 (cos phi1)) (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))))) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos phi1)) (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))))))))
(+ (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))) (* phi2 (+ (* -1/4 (* (sin phi1) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos phi1)) (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos phi1)) (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (- (+ (* -1/2 (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (* 1/4 (cos phi1))) (* 1/16 (/ (pow (sin phi1) 2) (+ 1/2 (+ (* -1/2 (cos phi1)) (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))))) (* 1/2 (* (* phi2 (- (* 1/12 (sin phi1)) (* -1/4 (/ (* (sin phi1) (- (+ (* -1/2 (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (* 1/4 (cos phi1))) (* 1/16 (/ (pow (sin phi1) 2) (+ 1/2 (+ (* -1/2 (cos phi1)) (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))))) (+ 1/2 (+ (* -1/2 (cos phi1)) (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))))) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos phi1)) (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))))))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg lambda2)))))))))
(+ (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg lambda2))))))))) (* 1/4 (* (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg lambda2)))))))))))))
(+ (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg lambda2))))))))) (* lambda1 (+ (* 1/4 (* (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg lambda2)))))))))))) (* 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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg lambda2)))))))))))) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg lambda2)))))))))))))))
(+ (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg lambda2))))))))) (* lambda1 (+ (* 1/4 (* (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg lambda2)))))))))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg lambda2))))))))))))) (* 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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg lambda2)))))))))))))) (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg lambda2)))))))))))) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg lambda2)))))))))))))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos lambda1))))))))
(+ (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos lambda1)))))))) (* -1/4 (* (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos lambda1))))))))))))
(+ (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos lambda1)))))))) (* lambda2 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda1))) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos lambda1))))))))))) (* 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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos lambda1))))))))))) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos lambda1))))))))))))))
(+ (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos lambda1)))))))) (* lambda2 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda1))) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos lambda1))))))))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos 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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos lambda1)))))))))))) (* 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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos lambda1))))))))))))) (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos lambda1))))))))))) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos lambda1))))))))))))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))))))))
(+ 1/2 (+ (* -1/2 (cos (neg phi2))) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))
(+ 1/2 (+ (* -1/2 (cos (neg phi2))) (+ (* 1/2 (* phi1 (sin (neg phi2)))) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))
(+ 1/2 (+ (* -1/2 (cos (neg phi2))) (+ (* phi1 (+ (* 1/2 (sin (neg phi2))) (* phi1 (+ (* -1/2 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (* 1/4 (cos (neg phi2))))))) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))
(+ 1/2 (+ (* -1/2 (cos (neg phi2))) (+ (* phi1 (+ (* 1/2 (sin (neg phi2))) (* phi1 (+ (* -1/2 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (+ (* -1/12 (* phi1 (sin (neg phi2)))) (* 1/4 (cos (neg phi2)))))))) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))
(+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))
(+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))
(+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))
(+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))
(+ 1/2 (+ (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))
(+ 1/2 (+ (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))
(+ 1/2 (+ (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))
(+ 1/2 (+ (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))
(+ 1/2 (+ (* -1/2 (cos phi1)) (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))
(+ 1/2 (+ (* -1/2 (cos phi1)) (+ (* -1/2 (* phi2 (sin phi1))) (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))
(+ 1/2 (+ (* -1/2 (cos phi1)) (+ (* phi2 (+ (* -1/2 (sin phi1)) (* phi2 (+ (* -1/2 (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (* 1/4 (cos phi1)))))) (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))
(+ 1/2 (+ (* -1/2 (cos phi1)) (+ (* phi2 (+ (* -1/2 (sin phi1)) (* phi2 (+ (* -1/2 (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (+ (* 1/12 (* phi2 (sin phi1))) (* 1/4 (cos phi1))))))) (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))
(+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))
(+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))
(+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))
(+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))
(+ 1/2 (+ (* -1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))
(+ 1/2 (+ (* -1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))
(+ 1/2 (+ (* -1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))
(+ 1/2 (+ (* -1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))
(+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg lambda2))))))))
(+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (+ (* 1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg lambda2)))))))))
(+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (+ (* lambda1 (+ (* 1/4 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))) (* 1/2 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg lambda2)))))))))
(+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (+ (* 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))))))))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg lambda2)))))))))
(+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))
(+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))
(+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))
(+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))
(+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))))))
(+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))))))
(+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))))))
(+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))))))
(+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos lambda1)))))))
(+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos lambda1))))))))
(+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (+ (* lambda2 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* 1/4 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos lambda1))))))))
(+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (+ (* 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)))))))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos lambda1))))))))
(+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))
(+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))
(+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))
(+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))
(+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))))
(+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))))
(+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))))
(+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))))
(* 2 (* R (atan2 (sqrt (- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (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) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (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) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (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) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (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) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (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) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (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) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (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) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (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) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (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) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (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) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (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) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (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) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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 (- lambda1 lambda2)))
(+ (sin (* 1/2 (- lambda1 lambda2))) (* -1/4 (/ (* phi1 phi2) (sin (* 1/2 (- lambda1 lambda2))))))
(+ (sin (* 1/2 (- lambda1 lambda2))) (* phi1 (+ (* -1/4 (/ phi2 (sin (* 1/2 (- lambda1 lambda2))))) (* 1/2 (/ (* phi1 (- (+ 1/4 (* -1/2 (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (* 1/16 (/ (pow phi2 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+ (sin (* 1/2 (- lambda1 lambda2))) (* phi1 (+ (* -1/4 (/ phi2 (sin (* 1/2 (- lambda1 lambda2))))) (* phi1 (+ (* -1/2 (/ (* phi1 (+ (* -1/4 (/ (* phi2 (- (+ 1/4 (* -1/2 (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (* 1/16 (/ (pow phi2 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))))) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (* -1/12 phi2))) (sin (* 1/2 (- lambda1 lambda2))))) (* 1/2 (/ (- (+ 1/4 (* -1/2 (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (* 1/16 (/ (pow phi2 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(sqrt (- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))
(sqrt (- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))
(sqrt (- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))
(sqrt (- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))
(sqrt (- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))
(sqrt (- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))
(sqrt (- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))
(sqrt (- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))
(sqrt (- (+ (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))
(+ (sqrt (- (+ (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (* 1/2 (* (* lambda1 (* (cos phi1) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (- (+ (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))))))
(+ (sqrt (- (+ (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2))) (- (+ (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))))) (sqrt (/ 1 (- (+ (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))))) (* 1/2 (* (* (cos phi1) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (sqrt (/ 1 (- (+ (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))))))))
(+ (sqrt (- (+ (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (* lambda1 (+ (* 1/2 (* (* (cos phi1) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (sqrt (/ 1 (- (+ (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (+ (* -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 (* -1/2 lambda2)) (* (sin (* -1/2 lambda2)) (- (* (cos phi1) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2))) (- (+ (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))))))) (- (+ (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))))) (sqrt (/ 1 (- (+ (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))))) (* 1/2 (* (- (* (cos phi1) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2))) (- (+ (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))))) (sqrt (/ 1 (- (+ (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))))))))))
(sqrt (- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))
(sqrt (- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))
(sqrt (- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))
(sqrt (- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))
(sqrt (- (+ (* (cos phi1) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))
(sqrt (- (+ (* (cos phi1) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))
(sqrt (- (+ (* (cos phi1) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))
(sqrt (- (+ (* (cos phi1) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))
(sqrt (- (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))
(+ (sqrt (- (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (* -1/2 (* (* lambda2 (* (cos phi1) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (- (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))))))
(+ (sqrt (- (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (sqrt (/ 1 (- (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2))) (- (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 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)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))))))))
(+ (sqrt (- (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (sqrt (/ 1 (- (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))))) (* lambda2 (+ (* 1/2 (* (* lambda2 (- (* (cos phi1) (+ (* 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 (* 1/2 lambda1)) (* (sin (* 1/2 lambda1)) (- (* (cos phi1) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2))) (- (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))))))) (- (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 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)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))))) (* 1/2 (* (- (* (cos phi1) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2))) (- (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 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)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))))))))))
(sqrt (- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))
(sqrt (- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))
(sqrt (- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))
(sqrt (- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))
(sqrt (- (+ (* (cos phi1) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))
(sqrt (- (+ (* (cos phi1) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))
(sqrt (- (+ (* (cos phi1) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))
(sqrt (- (+ (* (cos phi1) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))
(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/8 (* (* phi2 (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2))) (sqrt (/ 1 (pow (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) 3))))))))
(+ (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/8 (* (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (sqrt (/ 1 (pow (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) 3))))) (* -1/16 (* (* phi2 (* (pow (cos (* 1/2 phi1)) 3) (pow (sin (* 1/2 phi1)) 3))) (sqrt (/ 1 (pow (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) 5))))))))))
(* (sqrt (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (sqrt -1))
(* phi2 (+ (* 1/2 (* (sqrt (/ 1 (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (/ (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (sqrt -1)))) (* (sqrt (/ (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) phi2)) (sqrt -1))))
(* phi2 (+ (* -1/8 (* (sqrt (/ 1 (* (pow phi2 5) (* (pow (cos (* 1/2 phi1)) 3) (pow (sin (* 1/2 phi1)) 3))))) (/ (pow (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) 2) (pow (sqrt -1) 3)))) (+ (* 1/2 (* (sqrt (/ 1 (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (/ (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (sqrt -1)))) (* (sqrt (/ (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) phi2)) (sqrt -1)))))
(* phi2 (+ (* -1/8 (* (sqrt (/ 1 (* (pow phi2 5) (* (pow (cos (* 1/2 phi1)) 3) (pow (sin (* 1/2 phi1)) 3))))) (/ (pow (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) 2) (pow (sqrt -1) 3)))) (+ (* 1/16 (* (sqrt (/ 1 (* (pow phi2 7) (* (pow (cos (* 1/2 phi1)) 5) (pow (sin (* 1/2 phi1)) 5))))) (/ (pow (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) 3) (pow (sqrt -1) 5)))) (+ (* 1/2 (* (sqrt (/ 1 (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (/ (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (sqrt -1)))) (* (sqrt (/ (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) phi2)) (sqrt -1))))))
(* -1 (* (sqrt (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (sqrt -1)))
(* -1 (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (* (pow phi2 3) (* (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 (* 1/2 phi1)) (sin (* 1/2 phi1))) phi2)) (sqrt -1)))))
(* -1 (* phi2 (+ (* -1/8 (* (sqrt (/ 1 (* (pow phi2 5) (* (pow (cos (* 1/2 phi1)) 3) (pow (sin (* 1/2 phi1)) 3))))) (* (sqrt -1) (pow (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) 2)))) (+ (* 1/2 (* (sqrt (/ 1 (* (pow phi2 3) (* (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 (* 1/2 phi1)) (sin (* 1/2 phi1))) phi2)) (sqrt -1))))))
(* -1 (* phi2 (+ (* -1/8 (* (sqrt (/ 1 (* (pow phi2 5) (* (pow (cos (* 1/2 phi1)) 3) (pow (sin (* 1/2 phi1)) 3))))) (* (sqrt -1) (pow (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) 2)))) (+ (* 1/16 (* (sqrt (/ 1 (* (pow phi2 7) (* (pow (cos (* 1/2 phi1)) 5) (pow (sin (* 1/2 phi1)) 5))))) (* (sqrt -1) (pow (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) 3)))) (+ (* 1/2 (* (sqrt (/ 1 (* (pow phi2 3) (* (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 (* 1/2 phi1)) (sin (* 1/2 phi1))) phi2)) (sqrt -1)))))))
(pow (sin (* 1/2 (- lambda1 lambda2))) 2)
(+ (* -1/2 (* phi1 phi2)) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))
(+ (* phi1 (- (* phi1 (+ 1/4 (* -1/2 (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (* 1/2 phi2))) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))
(+ (* phi1 (- (* phi1 (+ 1/4 (+ (* -1/2 (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* 1/12 (* phi1 phi2))))) (* 1/2 phi2))) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))
(- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* 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 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))
(- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* 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 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))
(- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* 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 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))
(- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* 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 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))
(- (+ (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))
(- (+ (* lambda1 (* (cos phi1) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (+ (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))
(- (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* (cos phi1) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))
(- (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (* (cos phi1) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2)) (pow (sin (* 1/2 phi1)) 2))) (* 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 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))
(- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* 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 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))
(- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))
(- (+ (* (cos phi1) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))
(- (+ (* (cos phi1) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))
(- (+ (* (cos phi1) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))
(- (+ (* (cos phi1) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))
(- (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))
(- (+ (* -1 (* lambda2 (* (cos phi1) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))
(- (+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (* lambda2 (* (cos phi1) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))
(- (+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (* lambda2 (+ (* lambda2 (* (cos phi1) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* (cos phi1) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))) (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2))) (* 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 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))
(- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* 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 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))
(- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))
(- (+ (* (cos phi1) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))
(- (+ (* (cos phi1) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))
(- (+ (* (cos phi1) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))
(- (+ (* (cos phi1) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* 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 (* (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 (* (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 (* (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 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))
(* phi2 (- (+ (/ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) phi2) (/ (pow (sin (* 1/2 phi1)) 2) phi2)) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))
(* phi2 (- (+ (/ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) phi2) (/ (pow (sin (* 1/2 phi1)) 2) phi2)) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))
(* phi2 (- (+ (/ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) phi2) (/ (pow (sin (* 1/2 phi1)) 2) phi2)) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))
(* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))
(* -1 (* phi2 (- (* -1 (/ (+ (* (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)))))))
(* -1 (* phi2 (- (* -1 (/ (+ (* (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)))))))
(* -1 (* phi2 (- (* -1 (/ (+ (* (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)))))))
(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 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)) 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 (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 (* -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 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)))
(- 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/2 (pow lambda1 2))
(- (* -1 (* lambda1 lambda2)) (* -1/2 (pow lambda1 2)))
(- (* lambda2 (- (* lambda2 (- 1/2 (* 1/4 (pow lambda1 2)))) lambda1)) (* -1/2 (pow lambda1 2)))
(- (* lambda2 (- (* lambda2 (- (+ 1/2 (* 1/6 (* lambda1 lambda2))) (* 1/4 (pow lambda1 2)))) lambda1)) (* -1/2 (pow lambda1 2)))
(- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))
(- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))
(- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))
(- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))
(- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))
(- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))
(- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))
(- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))
(- 1 (cos lambda2))
(- (+ 1 (* -1 (* lambda1 (sin lambda2)))) (cos lambda2))
(- (+ 1 (* lambda1 (- (* 1/2 (* lambda1 (cos lambda2))) (sin lambda2)))) (cos lambda2))
(- (+ 1 (* lambda1 (- (* 1/2 (* lambda1 (cos lambda2))) (sin lambda2)))) (cos lambda2))
(* 1/2 (* (pow lambda1 2) (cos lambda2)))
(* (pow lambda1 2) (- (* -1 (/ (sin lambda2) lambda1)) (* -1/2 (cos lambda2))))
(* (pow lambda1 2) (- (/ 1 (pow lambda1 2)) (+ (* -1/2 (cos lambda2)) (+ (/ (cos lambda2) (pow lambda1 2)) (/ (sin lambda2) lambda1)))))
(* (pow lambda1 2) (- (/ 1 (pow lambda1 2)) (+ (* -1/2 (cos lambda2)) (+ (/ (cos lambda2) (pow lambda1 2)) (/ (sin lambda2) lambda1)))))
(* 1/2 (* (pow lambda1 2) (cos lambda2)))
(* (pow lambda1 2) (- (* -1 (/ (sin lambda2) lambda1)) (* -1/2 (cos lambda2))))
(* (pow lambda1 2) (- (* -1 (/ (- (* -1 (/ (- 1 (cos lambda2)) lambda1)) (* -1 (sin lambda2))) lambda1)) (* -1/2 (cos lambda2))))
(* (pow lambda1 2) (- (* -1 (/ (- (* -1 (/ (- 1 (cos lambda2)) lambda1)) (* -1 (sin lambda2))) lambda1)) (* -1/2 (cos lambda2))))
(+ 1/2 (* -1/2 (cos (neg phi2))))
(+ 1/2 (+ (* -1/2 (cos (neg phi2))) (* 1/2 (* phi1 (sin (neg phi2))))))
(+ 1/2 (+ (* -1/2 (cos (neg phi2))) (* phi1 (+ (* 1/4 (* phi1 (cos (neg phi2)))) (* 1/2 (sin (neg phi2)))))))
(+ 1/2 (+ (* -1/2 (cos (neg phi2))) (* phi1 (+ (* 1/2 (sin (neg phi2))) (* phi1 (+ (* -1/12 (* phi1 (sin (neg phi2)))) (* 1/4 (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 (cos phi1)) (* -1/2 (* phi2 (sin phi1)))))
(+ 1/2 (+ (* -1/2 (cos phi1)) (* phi2 (+ (* -1/2 (sin phi1)) (* 1/4 (* phi2 (cos phi1)))))))
(+ 1/2 (+ (* -1/2 (cos phi1)) (* phi2 (+ (* -1/2 (sin phi1)) (* phi2 (+ (* 1/12 (* phi2 (sin phi1))) (* 1/4 (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/2 (* -1/2 (cos (neg lambda2))))
(+ 1/2 (+ (* -1/2 (cos (neg lambda2))) (* 1/2 (* lambda1 (sin (neg lambda2))))))
(+ 1/2 (+ (* -1/2 (cos (neg lambda2))) (* lambda1 (+ (* 1/4 (* lambda1 (cos (neg lambda2)))) (* 1/2 (sin (neg lambda2)))))))
(+ 1/2 (+ (* -1/2 (cos (neg lambda2))) (* lambda1 (+ (* 1/2 (sin (neg lambda2))) (* lambda1 (+ (* -1/12 (* lambda1 (sin (neg lambda2)))) (* 1/4 (cos (neg lambda2)))))))))
(+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))
(+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))
(+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))
(+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))
(+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))
(+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))
(+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))
(+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))
(+ 1/2 (* -1/2 (cos lambda1)))
(+ 1/2 (+ (* -1/2 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))
(+ 1/2 (+ (* -1/2 (cos lambda1)) (* lambda2 (+ (* -1/2 (sin lambda1)) (* 1/4 (* lambda2 (cos lambda1)))))))
(+ 1/2 (+ (* -1/2 (cos lambda1)) (* lambda2 (+ (* -1/2 (sin lambda1)) (* lambda2 (+ (* 1/12 (* lambda2 (sin lambda1))) (* 1/4 (cos lambda1))))))))
(+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))
(+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))
(+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))
(+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))
(+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))
(+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))
(+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))
(+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))
(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))))

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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (+.f64 #s(literal 1 binary64) (.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 (+.f64 #s(literal 1 binary64) (.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 (+.f64 #s(literal 1 binary64) (.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 (+.f64 #s(literal 1 binary64) (.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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (+.f64 #s(literal 1 binary64) (.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 (+.f64 #s(literal 1 binary64) (.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 (+.f64 #s(literal 1 binary64) (.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 (+.f64 #s(literal 1 binary64) (.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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.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 phi1 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))
(+ (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 (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/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 #s(literal 1/2 binary64) (.f64 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 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (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 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (.f64 #s(literal 1/2 binary64) (.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 (+ (* (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 (.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) 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 (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 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 #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 #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 (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) lambda2)))))))))
(+ (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 (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) 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 #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 #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 #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 #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 (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 #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))))) (.f64 #s(literal 1/2 binary64) (.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 (.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 (+ (* (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 phi1 (.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))))))) (+ (* (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 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (+.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (.f64 phi1 (.f64 (.f64 (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 (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 #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 (.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) 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 (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) 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 (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) 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 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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)))))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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)))))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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)))))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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)))))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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)))))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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)))))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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)))))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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)))))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (cos.f64 (-.f64 phi2 phi1))))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (cos.f64 (-.f64 phi2 phi1))))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (cos.f64 (-.f64 phi2 phi1))))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (cos.f64 (-.f64 phi2 phi1))))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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)))))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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)))))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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)))))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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)))))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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)))))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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)))))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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)))))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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)))))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (neg (+ lambda2 (* -1 lambda1)))))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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)))))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (neg (+ lambda2 (* -1 lambda1)))))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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)))))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (neg (+ lambda2 (* -1 lambda1)))))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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)))))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (neg (+ lambda2 (* -1 lambda1)))))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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)))))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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)))))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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)))))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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)))))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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)))))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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)))))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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)))))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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)))))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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)))))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (+ lambda1 (* -1 lambda2))))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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)))))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (+ lambda1 (* -1 lambda2))))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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)))))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (+ lambda1 (* -1 lambda2))))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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)))))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (+ lambda1 (* -1 lambda2))))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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)))))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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)))))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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)))))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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)))))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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)))))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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)))))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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)))))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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)))))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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)))))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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)))))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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)))))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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)))))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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)))))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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)))))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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)))))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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)))))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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)))))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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)))))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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)))))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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)))))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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)))))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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)))))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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)))))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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)))))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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)))))))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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))))))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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))))))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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))))))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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))))))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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))))))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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))))))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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))))))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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))))))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (cos.f64 (-.f64 phi2 phi1)))))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (cos.f64 (-.f64 phi2 phi1)))))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (cos.f64 (-.f64 phi2 phi1)))))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (cos.f64 (-.f64 phi2 phi1)))))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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))))))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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))))))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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))))))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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))))))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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))))))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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))))))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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))))))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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))))))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (neg (+ lambda2 (* -1 lambda1)))))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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))))))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (neg (+ lambda2 (* -1 lambda1)))))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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))))))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (neg (+ lambda2 (* -1 lambda1)))))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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))))))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (neg (+ lambda2 (* -1 lambda1)))))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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))))))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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))))))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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))))))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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))))))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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))))))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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))))))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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))))))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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))))))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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))))))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (+ lambda1 (* -1 lambda2))))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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))))))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (+ lambda1 (* -1 lambda2))))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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))))))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (+ lambda1 (* -1 lambda2))))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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))))))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (+ lambda1 (* -1 lambda2))))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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))))))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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))))))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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))))))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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))))))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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))))))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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))))))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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))))))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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))))))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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))))))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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))))))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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))))))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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))))))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))) (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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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))))))))
(* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2)))))
(*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
(+ (* 1/2 (* (/ (* (pow phi1 2) (+ 1/4 (* -1/4 (- 1 (cos (- lambda1 lambda2)))))) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (- lambda1 lambda2))))))) (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))))
(+.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 phi1 phi1) (+.f64 #s(literal 1/4 binary64) (.f64 #s(literal -1/4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (sqrt.f64 #s(literal 1/2 binary64)))))
(+ (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (* (pow phi1 2) (+ (* 1/2 (* (/ (* (pow phi1 2) (- (* 1/48 (- 1 (cos (- lambda1 lambda2)))) (+ 1/48 (* 1/4 (/ (pow (+ 1/4 (* -1/4 (- 1 (cos (- lambda1 lambda2))))) 2) (* (pow (sqrt 1/2) 2) (- 1 (cos (- lambda1 lambda2))))))))) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (* (/ (+ 1/4 (* -1/4 (- 1 (cos (- lambda1 lambda2))))) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (- lambda1 lambda2))))))))))
(+.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 (.f64 phi1 phi1) (.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (+.f64 (/.f64 (.f64 (.f64 phi1 phi1) (-.f64 (+.f64 (.f64 #s(literal 1/48 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -1/48 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (+.f64 #s(literal 1/4 binary64) (.f64 #s(literal -1/4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) #s(literal 2 binary64)) (-.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 #s(literal -1/4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (sqrt.f64 #s(literal 1/2 binary64))))))))
(+ (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (* (pow phi1 2) (+ (* 1/2 (* (/ (+ 1/4 (* -1/4 (- 1 (cos (- lambda1 lambda2))))) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (- lambda1 lambda2))))))) (* (pow phi1 2) (+ (* 1/2 (* (/ (* (pow phi1 2) (- (+ 1/1440 (* -1/1440 (- 1 (cos (- lambda1 lambda2))))) (* 1/2 (/ (* (+ 1/4 (* -1/4 (- 1 (cos (- lambda1 lambda2))))) (- (* 1/48 (- 1 (cos (- lambda1 lambda2)))) (+ 1/48 (* 1/4 (/ (pow (+ 1/4 (* -1/4 (- 1 (cos (- lambda1 lambda2))))) 2) (* (pow (sqrt 1/2) 2) (- 1 (cos (- lambda1 lambda2))))))))) (* (pow (sqrt 1/2) 2) (- 1 (cos (- lambda1 lambda2)))))))) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (* (/ (- (* 1/48 (- 1 (cos (- lambda1 lambda2)))) (+ 1/48 (* 1/4 (/ (pow (+ 1/4 (* -1/4 (- 1 (cos (- lambda1 lambda2))))) 2) (* (pow (sqrt 1/2) 2) (- 1 (cos (- lambda1 lambda2)))))))) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (- lambda1 lambda2))))))))))))
(+.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 (.f64 phi1 phi1) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (+.f64 #s(literal 1/4 binary64) (.f64 #s(literal -1/4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 (.f64 phi1 phi1) (.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (+.f64 (/.f64 (.f64 (.f64 phi1 phi1) (-.f64 (+.f64 #s(literal 1/1440 binary64) (.f64 #s(literal -1/1440 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1 binary64) (/.f64 (.f64 (+.f64 #s(literal 1/4 binary64) (.f64 #s(literal -1/4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (-.f64 (+.f64 (.f64 #s(literal 1/48 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -1/48 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (+.f64 #s(literal 1/4 binary64) (.f64 #s(literal -1/4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) #s(literal 2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 (-.f64 (+.f64 (.f64 #s(literal 1/48 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -1/48 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (+.f64 #s(literal 1/4 binary64) (.f64 #s(literal -1/4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) #s(literal 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)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (neg lambda2))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))))
(+ (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (neg lambda2)))))))) (* 1/4 (* (* lambda1 (* (cos phi1) (sin (neg lambda2)))) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (neg lambda2))))))))))))
(+.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 lambda1 (cos.f64 phi1)) (-.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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))))))
(+ (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (neg lambda2)))))))) (* lambda1 (+ (* 1/4 (* (* (cos phi1) (sin (neg lambda2))) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (neg lambda2))))))))))) (* 1/2 (* (* lambda1 (- (* 1/4 (* (cos phi1) (cos (neg lambda2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (pow (sin (neg lambda2)) 2)) (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (neg lambda2))))))))))) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (neg lambda2))))))))))))))
(+.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))) (.f64 lambda1 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))))) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal 1/4 binary64) (cos.f64 phi1)) (cos.f64 lambda2)) (.f64 #s(literal -1/16 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))))))))))))
(+ (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (neg lambda2)))))))) (* lambda1 (+ (* 1/4 (* (* (cos phi1) (sin (neg lambda2))) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (neg lambda2))))))))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (neg lambda2))))))))) (- (* 1/4 (* (cos phi1) (cos (neg lambda2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (pow (sin (neg lambda2)) 2)) (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (neg lambda2)))))))))))) (* 1/2 (* (* lambda1 (- (* -1/12 (* (cos phi1) (sin (neg lambda2)))) (* 1/4 (/ (* (cos phi1) (* (sin (neg lambda2)) (- (* 1/4 (* (cos phi1) (cos (neg lambda2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (pow (sin (neg lambda2)) 2)) (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (neg lambda2)))))))))))) (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (neg lambda2))))))))))) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (neg lambda2))))))))))))))))
(+.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))) (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 phi1) (-.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) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))))) (.f64 lambda1 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))))) (+.f64 (.f64 (.f64 #s(literal 1/4 binary64) (cos.f64 phi1)) (cos.f64 lambda2)) (.f64 #s(literal -1/16 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))))))) (.f64 lambda1 (.f64 (+.f64 (.f64 (.f64 #s(literal -1/12 binary64) (cos.f64 phi1)) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))) (+.f64 (.f64 (.f64 #s(literal 1/4 binary64) (cos.f64 phi1)) (cos.f64 lambda2)) (.f64 #s(literal -1/16 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))))))) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))))))))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (neg (+ lambda2 (* -1 lambda1))))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (neg (+ lambda2 (* -1 lambda1))))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (neg (+ lambda2 (* -1 lambda1))))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (neg (+ lambda2 (* -1 lambda1))))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos lambda1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1))))))
(+ (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos lambda1))))))) (* -1/4 (* (* lambda2 (* (cos phi1) (sin lambda1))) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos lambda1)))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 (.f64 lambda2 (cos.f64 phi1)) (sin.f64 lambda1))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))))))))
(+ (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos lambda1))))))) (* lambda2 (+ (* -1/4 (* (* (cos phi1) (sin lambda1)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos lambda1)))))))))) (* 1/2 (* (* lambda2 (- (* 1/4 (* (cos lambda1) (cos phi1))) (* 1/16 (/ (* (pow (cos phi1) 2) (pow (sin lambda1) 2)) (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos lambda1)))))))))) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos lambda1)))))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))))) (.f64 lambda2 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1))))))) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (+.f64 (.f64 (.f64 #s(literal 1/4 binary64) (cos.f64 lambda1)) (cos.f64 phi1)) (.f64 #s(literal -1/16 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #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) (cos.f64 phi1)) (.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1))))))))))))))
(+ (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos lambda1))))))) (* lambda2 (+ (* -1/4 (* (* (cos phi1) (sin lambda1)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos lambda1)))))))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos lambda1)))))))) (- (* 1/4 (* (cos lambda1) (cos phi1))) (* 1/16 (/ (* (pow (cos phi1) 2) (pow (sin lambda1) 2)) (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos lambda1))))))))))) (* 1/2 (* (* lambda2 (- (* 1/12 (* (cos phi1) (sin lambda1))) (* -1/4 (/ (* (cos phi1) (* (sin lambda1) (- (* 1/4 (* (cos lambda1) (cos phi1))) (* 1/16 (/ (* (pow (cos phi1) 2) (pow (sin lambda1) 2)) (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos lambda1))))))))))) (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos lambda1)))))))))) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos lambda1)))))))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))))) (.f64 lambda2 (+.f64 (.f64 (.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))))))) (.f64 lambda2 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1))))))) (+.f64 (.f64 (.f64 #s(literal 1/4 binary64) (cos.f64 lambda1)) (cos.f64 phi1)) (.f64 #s(literal -1/16 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #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) (cos.f64 phi1)) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1))))))))) (.f64 lambda2 (.f64 (+.f64 (.f64 (.f64 #s(literal 1/12 binary64) (cos.f64 phi1)) (sin.f64 lambda1)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 lambda1)) (+.f64 (.f64 (.f64 #s(literal 1/4 binary64) (cos.f64 lambda1)) (cos.f64 phi1)) (.f64 #s(literal -1/16 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #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) (cos.f64 phi1)) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1))))))))) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))))))))))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (+ lambda1 (* -1 lambda2)))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(* 1/2 (- 1 (cos (- lambda1 lambda2))))
(*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))
(+ (* 1/2 (- 1 (cos (- lambda1 lambda2)))) (* (pow phi1 2) (+ 1/4 (* -1/4 (- 1 (cos (- lambda1 lambda2)))))))
(+.f64 (.f64 (.f64 phi1 phi1) (+.f64 #s(literal 1/4 binary64) (.f64 #s(literal -1/4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
(+ (* 1/2 (- 1 (cos (- lambda1 lambda2)))) (* (pow phi1 2) (+ 1/4 (+ (* -1/4 (- 1 (cos (- lambda1 lambda2)))) (* (pow phi1 2) (- (* 1/48 (- 1 (cos (- lambda1 lambda2)))) 1/48))))))
(+.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (.f64 phi1 phi1) (+.f64 #s(literal 1/4 binary64) (+.f64 (.f64 #s(literal -1/4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (.f64 phi1 phi1) (+.f64 (*.f64 #s(literal 1/48 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -1/48 binary64)))))))
(+ (* 1/2 (- 1 (cos (- lambda1 lambda2)))) (* (pow phi1 2) (+ 1/4 (+ (* -1/4 (- 1 (cos (- lambda1 lambda2)))) (* (pow phi1 2) (- (+ (* 1/48 (- 1 (cos (- lambda1 lambda2)))) (* (pow phi1 2) (+ 1/1440 (* -1/1440 (- 1 (cos (- lambda1 lambda2))))))) 1/48))))))
(+.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (.f64 phi1 phi1) (+.f64 (+.f64 #s(literal 1/4 binary64) (.f64 #s(literal -1/4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 (.f64 phi1 phi1) (+.f64 (.f64 #s(literal 1/48 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (+.f64 (.f64 (.f64 phi1 phi1) (+.f64 #s(literal 1/1440 binary64) (.f64 #s(literal -1/1440 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) #s(literal -1/48 binary64)))))))
(+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
(+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
(+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
(+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
(+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
(+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
(+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
(+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
(+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (neg lambda2)))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))
(+ 1/2 (+ (* -1/2 (cos phi1)) (+ (* 1/2 (* lambda1 (* (cos phi1) (sin (neg lambda2))))) (* 1/2 (* (cos phi1) (- 1 (cos (neg lambda2))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))))
(+ 1/2 (+ (* -1/2 (cos phi1)) (+ (* 1/2 (* (cos phi1) (- 1 (cos (neg lambda2))))) (* lambda1 (+ (* 1/4 (* lambda1 (* (cos phi1) (cos (neg lambda2))))) (* 1/2 (* (cos phi1) (sin (neg lambda2)))))))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (.f64 lambda1 (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 lambda1 (cos.f64 phi1)) (cos.f64 lambda2))) (.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))))))
(+ 1/2 (+ (* -1/2 (cos phi1)) (+ (* 1/2 (* (cos phi1) (- 1 (cos (neg lambda2))))) (* lambda1 (+ (* 1/2 (* (cos phi1) (sin (neg lambda2)))) (* lambda1 (+ (* -1/12 (* lambda1 (* (cos phi1) (sin (neg lambda2))))) (* 1/4 (* (cos phi1) (cos (neg lambda2)))))))))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))) (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal 1/4 binary64) (cos.f64 phi1)) (cos.f64 lambda2)) (.f64 #s(literal -1/12 binary64) (.f64 (.f64 lambda1 (cos.f64 phi1)) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))))))))))
(+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
(+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
(+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
(+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
(+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (neg (+ lambda2 (* -1 lambda1)))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
(+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (neg (+ lambda2 (* -1 lambda1)))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
(+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (neg (+ lambda2 (* -1 lambda1)))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
(+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (neg (+ lambda2 (* -1 lambda1)))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
(+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos lambda1))))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))))
(+ 1/2 (+ (* -1/2 (cos phi1)) (+ (* -1/2 (* lambda2 (* (cos phi1) (sin lambda1)))) (* 1/2 (* (cos phi1) (- 1 (cos lambda1)))))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (+.f64 (cos.f64 phi1) (.f64 (.f64 lambda2 (cos.f64 phi1)) (sin.f64 lambda1)))) (.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))))
(+ 1/2 (+ (* -1/2 (cos phi1)) (+ (* 1/2 (* (cos phi1) (- 1 (cos lambda1)))) (* lambda2 (+ (* -1/2 (* (cos phi1) (sin lambda1))) (* 1/4 (* lambda2 (* (cos lambda1) (cos phi1)))))))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (.f64 lambda2 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (sin.f64 lambda1)) (.f64 #s(literal 1/4 binary64) (.f64 (*.f64 lambda2 (cos.f64 lambda1)) (cos.f64 phi1)))))))
(+ 1/2 (+ (* -1/2 (cos phi1)) (+ (* 1/2 (* (cos phi1) (- 1 (cos lambda1)))) (* lambda2 (+ (* -1/2 (* (cos phi1) (sin lambda1))) (* lambda2 (+ (* 1/12 (* lambda2 (* (cos phi1) (sin lambda1)))) (* 1/4 (* (cos lambda1) (cos phi1))))))))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (.f64 lambda2 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (sin.f64 lambda1)) (.f64 lambda2 (+.f64 (.f64 (.f64 #s(literal 1/4 binary64) (cos.f64 lambda1)) (cos.f64 phi1)) (.f64 #s(literal 1/12 binary64) (.f64 (.f64 lambda2 (cos.f64 phi1)) (sin.f64 lambda1)))))))))
(+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
(+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
(+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
(+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
(+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (+ lambda1 (* -1 lambda2))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
(+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (+ lambda1 (* -1 lambda2))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
(+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (+ lambda1 (* -1 lambda2))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
(+ 1/2 (+ (* -1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- 1 (cos (+ lambda1 (* -1 lambda2))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos 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 #s(literal 1/2 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))))) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (cos.f64 (-.f64 phi2 phi1))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos 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 #s(literal 1/2 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))))) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (cos.f64 (-.f64 phi2 phi1))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos 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 #s(literal 1/2 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))))) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (cos.f64 (-.f64 phi2 phi1))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos 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 #s(literal 1/2 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))))) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (cos.f64 (-.f64 phi2 phi1))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (+ (* -1/2 (* (pow lambda1 2) (cos lambda2))) (* lambda1 (sin 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 #s(literal 1/2 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda1)) (cos.f64 lambda2)) (.f64 lambda1 (sin.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (+ (* -1/2 (* (pow lambda1 2) (cos lambda2))) (* lambda1 (sin 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 #s(literal 1/2 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda1)) (cos.f64 lambda2)) (.f64 lambda1 (sin.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (+ (* -1/2 (* (pow lambda1 2) (cos lambda2))) (* lambda1 (sin 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 #s(literal 1/2 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda1)) (cos.f64 lambda2)) (.f64 lambda1 (sin.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (+ (* -1/2 (* (pow lambda1 2) (cos lambda2))) (* lambda1 (sin 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 #s(literal 1/2 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda1)) (cos.f64 lambda2)) (.f64 lambda1 (sin.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos 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 #s(literal 1/2 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))))) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (cos.f64 (-.f64 phi2 phi1)))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos 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 #s(literal 1/2 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))))) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (cos.f64 (-.f64 phi2 phi1)))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos 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 #s(literal 1/2 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))))) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (cos.f64 (-.f64 phi2 phi1)))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos 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 #s(literal 1/2 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))))) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (cos.f64 (-.f64 phi2 phi1)))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (+ (* -1/2 (* (pow lambda1 2) (cos lambda2))) (* lambda1 (sin 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 #s(literal 1/2 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda1)) (cos.f64 lambda2)) (.f64 lambda1 (sin.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (+ (* -1/2 (* (pow lambda1 2) (cos lambda2))) (* lambda1 (sin 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 #s(literal 1/2 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda1)) (cos.f64 lambda2)) (.f64 lambda1 (sin.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (+ (* -1/2 (* (pow lambda1 2) (cos lambda2))) (* lambda1 (sin 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 #s(literal 1/2 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda1)) (cos.f64 lambda2)) (.f64 lambda1 (sin.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (+ (* -1/2 (* (pow lambda1 2) (cos lambda2))) (* lambda1 (sin 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 #s(literal 1/2 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda1)) (cos.f64 lambda2)) (.f64 lambda1 (sin.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (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 #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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos (neg phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 lambda2)))))))) (cos.f64 phi2)))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos (neg phi2))))) (* 1/4 (* (* phi1 (sin (neg phi2))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos (neg phi2)))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))))) (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 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 lambda2)))))))) (cos.f64 phi2))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos (neg phi2))))) (* phi1 (+ (* 1/4 (* (sin (neg phi2)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos (neg phi2)))))))) (* 1/2 (* (* phi1 (- (* -1/4 (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))) (+ (* -1/4 (cos (neg phi2))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos (neg phi2))))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos (neg phi2)))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))))) (cos.f64 phi2))))) (.f64 phi1 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))))) (cos.f64 phi2)))))) (+.f64 (.f64 #s(literal 1/4 binary64) (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (-.f64 (.f64 #s(literal -1/4 binary64) (-.f64 (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.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 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))))) (cos.f64 phi2))))))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos (neg phi2))))) (* phi1 (+ (* 1/4 (* (sin (neg phi2)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos 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 lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))) (+ (* -1/4 (cos (neg phi2))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos (neg phi2))))))))) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos (neg phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos (neg phi2)))))))) (* 1/2 (* (- (* -1/4 (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))) (+ (* -1/4 (cos (neg phi2))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos (neg phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos (neg phi2)))))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))))) (cos.f64 phi2))))) (.f64 phi1 (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi2)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))))) (cos.f64 phi2)))))))) (.f64 phi1 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))))) (cos.f64 phi2)))))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (+.f64 (.f64 #s(literal 1/12 binary64) (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) (.f64 #s(literal 1/4 binary64) (neg.f64 (.f64 (sin.f64 phi2) (/.f64 (-.f64 (.f64 #s(literal -1/4 binary64) (-.f64 (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.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 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))))) (cos.f64 phi2)))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))))) (cos.f64 phi2))))))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal -1/4 binary64) (-.f64 (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.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 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 lambda2)))))))) (cos.f64 phi2)))))))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2)))))
(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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))))) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2)))))
(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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))))) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2)))))
(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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))))) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2)))))
(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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))))) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))
(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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))))) (cos.f64 (-.f64 phi2 phi1))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))
(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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))))) (cos.f64 (-.f64 phi2 phi1))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))
(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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))))) (cos.f64 (-.f64 phi2 phi1))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))))
(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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))))) (cos.f64 (-.f64 phi2 phi1))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos phi1))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 lambda2)))))))) (cos.f64 phi1)))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos phi1)))) (* -1/4 (* (* phi2 (sin phi1)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos phi1))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))))) (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 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 lambda2)))))))) (cos.f64 phi1))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos phi1)))) (* phi2 (+ (* -1/4 (* (sin phi1) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos phi1))))))) (* 1/2 (* (* phi2 (- (* -1/4 (* (cos phi1) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))) (+ (* -1/4 (cos phi1)) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos phi1)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos phi1))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))))) (cos.f64 phi1))))) (.f64 phi2 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))))) (cos.f64 phi1)))))) (+.f64 (.f64 #s(literal -1/4 binary64) (sin.f64 phi1)) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (-.f64 (.f64 #s(literal -1/4 binary64) (-.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.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 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))))) (cos.f64 phi1))))))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos phi1)))) (* phi2 (+ (* -1/4 (* (sin phi1) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos phi1))))))) (* phi2 (+ (* -1/2 (* (* phi2 (+ (* -1/4 (/ (* (sin phi1) (- (* -1/4 (* (cos phi1) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))) (+ (* -1/4 (cos phi1)) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos phi1)))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos phi1))))) (* -1/12 (sin phi1)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos phi1))))))) (* 1/2 (* (- (* -1/4 (* (cos phi1) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))) (+ (* -1/4 (cos phi1)) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos phi1))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos phi1))))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))))) (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 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))))) (cos.f64 phi1))))))) (.f64 phi2 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))))) (cos.f64 phi1)))))) (+.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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.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 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))))) (cos.f64 phi1)))))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))))) (cos.f64 phi1))))) (.f64 #s(literal -1/12 binary64) (sin.f64 phi1))))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal -1/4 binary64) (-.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.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 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 lambda2)))))))) (cos.f64 phi1)))))))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2)))))
(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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))))) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2)))))
(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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))))) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2)))))
(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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))))) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2)))))
(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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))))) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))
(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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))))) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))
(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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))))) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))
(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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))))) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))
(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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))))) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/4 (* (pow lambda1 2) (* (cos phi1) (cos phi2))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 lambda1 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(+ (sqrt (- (+ 1/2 (* 1/4 (* (pow lambda1 2) (* (cos phi1) (cos phi2))))) (* 1/2 (cos (- phi1 phi2))))) (* -1/4 (* (* lambda1 (* lambda2 (* (cos phi1) (cos phi2)))) (sqrt (/ 1 (- (+ 1/2 (* 1/4 (* (pow lambda1 2) (* (cos phi1) (cos phi2))))) (* 1/2 (cos (- phi1 phi2)))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 lambda1 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (.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 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 lambda1 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))
(+ (sqrt (- (+ 1/2 (* 1/4 (* (pow lambda1 2) (* (cos phi1) (cos phi2))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda2 (+ (* -1/4 (* (* lambda1 (* (cos phi1) (cos phi2))) (sqrt (/ 1 (- (+ 1/2 (* 1/4 (* (pow lambda1 2) (* (cos phi1) (cos phi2))))) (* 1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (* lambda2 (- (* 1/2 (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/4 (pow lambda1 2)))))) (* 1/16 (/ (* (pow lambda1 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (+ 1/2 (* 1/4 (* (pow lambda1 2) (* (cos phi1) (cos phi2))))) (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/4 (* (pow lambda1 2) (* (cos phi1) (cos phi2))))) (* 1/2 (cos (- phi1 phi2)))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 lambda1 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (.f64 lambda2 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 lambda1 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (.f64 lambda1 (cos.f64 phi1)) (cos.f64 phi2))) (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/4 binary64) (.f64 lambda1 lambda1))))) (/.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 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 lambda1 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))))))
(+ (sqrt (- (+ 1/2 (* 1/4 (* (pow lambda1 2) (* (cos phi1) (cos phi2))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda2 (+ (* -1/4 (* (* lambda1 (* (cos phi1) (cos phi2))) (sqrt (/ 1 (- (+ 1/2 (* 1/4 (* (pow lambda1 2) (* (cos phi1) (cos phi2))))) (* 1/2 (cos (- phi1 phi2)))))))) (* lambda2 (+ (* 1/2 (* (* lambda2 (- (* 1/12 (* lambda1 (* (cos phi1) (cos phi2)))) (* -1/4 (/ (* lambda1 (* (cos phi1) (* (cos phi2) (- (* 1/2 (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/4 (pow lambda1 2)))))) (* 1/16 (/ (* (pow lambda1 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (+ 1/2 (* 1/4 (* (pow lambda1 2) (* (cos phi1) (cos phi2))))) (* 1/2 (cos (- phi1 phi2)))))))))) (- (+ 1/2 (* 1/4 (* (pow lambda1 2) (* (cos phi1) (cos phi2))))) (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/4 (* (pow lambda1 2) (* (cos phi1) (cos phi2))))) (* 1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (- (* 1/2 (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/4 (pow lambda1 2)))))) (* 1/16 (/ (* (pow lambda1 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (+ 1/2 (* 1/4 (* (pow lambda1 2) (* (cos phi1) (cos phi2))))) (* 1/2 (cos (- phi1 phi2))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/4 (* (pow lambda1 2) (* (cos phi1) (cos phi2))))) (* 1/2 (cos (- phi1 phi2)))))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 lambda1 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (.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 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 lambda1 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (.f64 lambda2 (.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/4 binary64) (.f64 (.f64 lambda1 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (+.f64 (.f64 lambda2 (+.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 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/4 binary64) (.f64 lambda1 lambda1))))) (/.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 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 lambda1 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 lambda1 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/4 binary64) (.f64 lambda1 lambda1))))) (/.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 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 lambda1 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2)))))
(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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))))) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2)))))
(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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))))) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2)))))
(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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))))) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2)))))
(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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))))) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2)))))
(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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))))) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2)))))
(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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))))) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2)))))
(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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))))) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2)))))
(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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))))) (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 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (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 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 phi2) (sin.f64 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (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 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (.f64 lambda1 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (cos.f64 (-.f64 phi1 phi2))))))) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (-.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 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (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 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (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/8 (* (* lambda1 (* (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))))))))))) (sqrt (/ 1 (pow (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (* 1/2 (cos (- phi1 phi2)))) 3))))) (* 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 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (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 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))))) (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal 1/8 binary64) (.f64 (.f64 lambda1 (cos.f64 phi1)) (.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 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (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 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 3 binary64))))) (.f64 #s(literal 1/2 binary64) (.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 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (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 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (cos.f64 (-.f64 phi1 phi2))))))))))))))
(* 1/2 (* lambda1 (sqrt (* (cos lambda2) (* (cos phi1) (cos phi2))))))
(.f64 (.f64 #s(literal 1/2 binary64) lambda1) (sqrt.f64 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))
(* lambda1 (+ (* -1/2 (* (/ (sin lambda2) lambda1) (sqrt (/ (* (cos phi1) (cos phi2)) (cos lambda2))))) (* 1/2 (sqrt (* (cos lambda2) (* (cos phi1) (cos phi2)))))))
(.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (sin.f64 lambda2) lambda1)) (sqrt.f64 (/.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda2)))) (.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 (cos.f64 lambda2) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))))
(* lambda1 (+ (* -1/2 (* (/ (sin lambda2) lambda1) (sqrt (/ (* (cos phi1) (cos phi2)) (cos lambda2))))) (+ (* 1/2 (sqrt (* (cos lambda2) (* (cos phi1) (cos phi2))))) (* (/ (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (+ (* 1/4 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda2) 2))) (cos lambda2))) (* 1/2 (cos (- phi1 phi2))))) (pow lambda1 2)) (sqrt (/ 1 (* (cos lambda2) (* (cos phi1) (cos phi2)))))))))
(.f64 lambda1 (+.f64 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (sin.f64 lambda2) lambda1)) (sqrt.f64 (/.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda2)))) (.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))) (/.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))) (cos.f64 lambda2)))))) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) (cos.f64 lambda2)) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (*.f64 lambda1 lambda1))))
(* lambda1 (+ (* -1/2 (* (/ (sin lambda2) lambda1) (sqrt (/ (* (cos phi1) (cos phi2)) (cos lambda2))))) (+ (* 1/2 (sqrt (* (cos lambda2) (* (cos phi1) (cos phi2))))) (+ (* (/ (* (sin lambda2) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (+ (* 1/4 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda2) 2))) (cos lambda2))) (* 1/2 (cos (- phi1 phi2)))))) (pow lambda1 3)) (sqrt (/ 1 (* (pow (cos lambda2) 3) (* (cos phi1) (cos phi2)))))) (* (/ (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (+ (* 1/4 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda2) 2))) (cos lambda2))) (* 1/2 (cos (- phi1 phi2))))) (pow lambda1 2)) (sqrt (/ 1 (* (cos lambda2) (* (cos phi1) (cos phi2))))))))))
(.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (sin.f64 lambda2) lambda1)) (sqrt.f64 (/.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda2)))) (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (/.f64 (.f64 (.f64 (sin.f64 lambda2) (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))) (cos.f64 lambda2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))) (.f64 lambda1 (.f64 lambda1 lambda1)))) (/.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))) (cos.f64 lambda2)))))) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) (cos.f64 lambda2)) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (.f64 lambda1 lambda1)))))
(* -1/2 (* lambda1 (sqrt (* (cos lambda2) (* (cos phi1) (cos phi2))))))
(.f64 (.f64 #s(literal -1/2 binary64) lambda1) (sqrt.f64 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))
(* -1 (* lambda1 (+ (* -1/2 (* (/ (sin lambda2) lambda1) (sqrt (/ (* (cos phi1) (cos phi2)) (cos lambda2))))) (* 1/2 (sqrt (* (cos lambda2) (* (cos phi1) (cos phi2))))))))
(.f64 (-.f64 #s(literal 0 binary64) lambda1) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (sin.f64 lambda2) lambda1)) (sqrt.f64 (/.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda2)))) (.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 (cos.f64 lambda2) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (* (/ (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (+ (* 1/4 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda2) 2))) (cos lambda2))) (* 1/2 (cos (- phi1 phi2))))) lambda1) (sqrt (/ 1 (* (cos lambda2) (* (cos phi1) (cos phi2))))))) (* 1/2 (* (sqrt (/ (* (cos phi1) (cos phi2)) (cos lambda2))) (sin lambda2)))) lambda1)) (* 1/2 (sqrt (* (cos lambda2) (* (cos phi1) (cos phi2))))))))
(.f64 (-.f64 #s(literal 0 binary64) lambda1) (-.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda2))) (sin.f64 lambda2))) (/.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))) (cos.f64 lambda2)))))) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) (cos.f64 lambda2)) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) lambda1)) lambda1)))
(* -1 (* lambda1 (+ (* -1 (/ (+ (* -1 (/ (+ (* (sqrt (/ 1 (* (cos lambda2) (* (cos phi1) (cos phi2))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (+ (* 1/4 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda2) 2))) (cos lambda2))) (* 1/2 (cos (- phi1 phi2)))))) (* (/ (* (sin lambda2) (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))))) (+ (* 1/4 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda2) 2))) (cos lambda2))) (* 1/2 (cos (- phi1 phi2)))))) lambda1) (sqrt (/ 1 (* (pow (cos lambda2) 3) (* (cos phi1) (cos phi2))))))) lambda1)) (* 1/2 (* (sqrt (/ (* (cos phi1) (cos phi2)) (cos lambda2))) (sin lambda2)))) lambda1)) (* 1/2 (sqrt (* (cos lambda2) (* (cos phi1) (cos phi2))))))))
(.f64 (-.f64 #s(literal 0 binary64) lambda1) (-.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda2))) (sin.f64 lambda2))) (/.f64 (+.f64 (.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) (cos.f64 lambda2)) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))) (cos.f64 lambda2))))))) (/.f64 (.f64 (.f64 (sin.f64 lambda2) (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))) (cos.f64 lambda2))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))) lambda1)) lambda1)) lambda1)))
(- (+ 1/2 (* 1/2 (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos (neg phi2))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 lambda2)))))))) (cos.f64 phi2))))
(- (+ 1/2 (+ (* 1/2 (* phi1 (sin (neg phi2)))) (* 1/2 (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (neg phi2))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (.f64 phi1 (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2))))))))) (cos.f64 phi2))))
(- (+ 1/2 (+ (* 1/2 (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))) (* phi1 (- (* phi1 (- (* -1/4 (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos 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 (.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))))) (.f64 phi1 (+.f64 (.f64 phi1 (.f64 #s(literal -1/4 binary64) (-.f64 (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))))) (cos.f64 phi2)))) (neg.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 phi2)))))) (.f64 #s(literal -1/2 binary64) (cos.f64 phi2))))
(- (+ 1/2 (+ (* 1/2 (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))) (* phi1 (- (* phi1 (- (+ (* -1/4 (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos 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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2))))))))) (.f64 phi1 (+.f64 (.f64 phi1 (+.f64 (.f64 (.f64 #s(literal -1/4 binary64) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))))) (+.f64 (.f64 #s(literal -1/12 binary64) (.f64 phi1 (-.f64 #s(literal 0 binary64) (sin.f64 phi2)))) (.f64 #s(literal 1/4 binary64) (cos.f64 phi2))))) (neg.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 phi2)))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2)))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2))))
(+.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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))))) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2))))
(+.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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))))) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2))))
(+.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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))))) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2))))
(+.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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))))) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(+.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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))))) (cos.f64 (-.f64 phi2 phi1)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(+.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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))))) (cos.f64 (-.f64 phi2 phi1)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(+.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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))))) (cos.f64 (-.f64 phi2 phi1)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(+.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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))))) (cos.f64 (-.f64 phi2 phi1)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))))) (* 1/2 (cos phi1)))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 lambda2)))))))) (cos.f64 phi1))))
(- (+ 1/2 (+ (* -1/2 (* phi2 (sin phi1))) (* 1/2 (* (cos phi1) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos phi1)))
(+.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (.f64 #s(literal -1/2 binary64) phi2) (sin.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2))))))))) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)))
(- (+ 1/2 (+ (* 1/2 (* (cos phi1) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))) (* phi2 (- (* phi2 (- (* -1/4 (* (cos phi1) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos 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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))))) (.f64 phi2 (+.f64 (.f64 phi2 (.f64 #s(literal -1/4 binary64) (-.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 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 lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))) (* phi2 (- (* phi2 (- (+ (* -1/4 (* (cos phi1) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos 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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2))))))))) (.f64 phi2 (+.f64 (.f64 phi2 (+.f64 (.f64 (.f64 #s(literal -1/4 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))))) (+.f64 (.f64 (.f64 #s(literal 1/12 binary64) 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 lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2))))
(+.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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))))) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2))))
(+.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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))))) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2))))
(+.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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))))) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2))))
(+.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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))))) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(+.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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))))) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(+.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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))))) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(+.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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))))) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(+.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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))))) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/4 (* (pow lambda1 2) (* (cos phi1) (cos phi2))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 lambda1 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (+ (* -1/2 (* lambda1 (* lambda2 (* (cos phi1) (cos phi2))))) (* 1/4 (* (pow lambda1 2) (* (cos phi1) (cos phi2)))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 lambda1 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (.f64 #s(literal -1/2 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/4 (* (pow lambda1 2) (* (cos phi1) (cos phi2)))) (* lambda2 (+ (* -1/2 (* lambda1 (* (cos phi1) (cos phi2)))) (* 1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/4 (pow lambda1 2))))))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 lambda1 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (.f64 lambda2 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (.f64 #s(literal 1/2 binary64) lambda2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/4 binary64) (.f64 lambda1 lambda1)))))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(- (+ 1/2 (+ (* 1/4 (* (pow lambda1 2) (* (cos phi1) (cos phi2)))) (* lambda2 (+ (* -1/2 (* lambda1 (* (cos phi1) (cos phi2)))) (* lambda2 (+ (* 1/12 (* lambda1 (* lambda2 (* (cos phi1) (cos phi2))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/4 (pow lambda1 2)))))))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 lambda1 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (.f64 lambda2 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 lambda2 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/4 binary64) (.f64 lambda1 lambda1))))) (.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 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2))))
(+.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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))))) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2))))
(+.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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))))) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2))))
(+.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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))))) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2))))
(+.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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))))) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2))))
(+.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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))))) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2))))
(+.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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))))) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2))))
(+.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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))))) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))))) (* 1/2 (cos (- phi1 phi2))))
(+.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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))))) (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 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (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 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))) (.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) (cos.f64 (-.f64 phi1 phi2))))
(- (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin lambda2)))) (* 1/4 (* lambda1 (* (cos lambda2) (* (cos phi1) (cos phi2))))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (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) (sin.f64 lambda2))) (.f64 (.f64 #s(literal 1/4 binary64) lambda1) (.f64 (cos.f64 lambda2) (.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 lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin lambda2)))) (* 1/4 (* lambda1 (* (cos lambda2) (* (cos phi1) (cos phi2))))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (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) (sin.f64 lambda2))) (.f64 (.f64 #s(literal 1/4 binary64) lambda1) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2))))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(* 1/4 (* (pow lambda1 2) (* (cos lambda2) (* (cos phi1) (cos phi2)))))
(.f64 #s(literal 1/4 binary64) (.f64 (.f64 lambda1 lambda1) (.f64 (cos.f64 lambda2) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))
(* (pow lambda1 2) (+ (* -1/2 (/ (* (cos phi1) (* (cos phi2) (sin lambda2))) lambda1)) (* 1/4 (* (cos lambda2) (* (cos phi1) (cos phi2))))))
(.f64 (.f64 lambda1 lambda1) (+.f64 (.f64 (.f64 #s(literal 1/4 binary64) (cos.f64 lambda2)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (/.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (.f64 (cos.f64 phi2) (sin.f64 lambda2))) lambda1)))
(* (pow lambda1 2) (- (+ (* -1/2 (/ (* (cos phi1) (* (cos phi2) (sin lambda2))) lambda1)) (+ (* 1/4 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (+ (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))) (pow lambda1 2))) (/ 1/2 (pow lambda1 2))))) (* 1/2 (/ (cos (- phi1 phi2)) (pow lambda1 2)))))
(.f64 (.f64 lambda1 lambda1) (+.f64 (+.f64 (+.f64 (.f64 (.f64 #s(literal 1/4 binary64) (cos.f64 lambda2)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (/.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (.f64 (cos.f64 phi2) (sin.f64 lambda2))) lambda1)) (+.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))) (.f64 lambda1 lambda1)) (/.f64 #s(literal 1/2 binary64) (.f64 lambda1 lambda1)))) (.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 lambda1 lambda1)))))
(* (pow lambda1 2) (- (+ (* -1/2 (/ (* (cos phi1) (* (cos phi2) (sin lambda2))) lambda1)) (+ (* 1/4 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (+ (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1 (cos lambda2)))) (pow lambda1 2))) (/ 1/2 (pow lambda1 2))))) (* 1/2 (/ (cos (- phi1 phi2)) (pow lambda1 2)))))
(.f64 (.f64 lambda1 lambda1) (+.f64 (+.f64 (+.f64 (.f64 (.f64 #s(literal 1/4 binary64) (cos.f64 lambda2)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (/.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (.f64 (cos.f64 phi2) (sin.f64 lambda2))) lambda1)) (+.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2))))) (.f64 lambda1 lambda1)) (/.f64 #s(literal 1/2 binary64) (.f64 lambda1 lambda1)))) (.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (-.f64 phi1 phi2)) (*.f64 lambda1 lambda1)))))
(* 1/4 (* (pow lambda1 2) (* (cos lambda2) (* (cos phi1) (cos phi2)))))
(.f64 #s(literal 1/4 binary64) (.f64 (.f64 lambda1 lambda1) (.f64 (cos.f64 lambda2) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))
(* (pow lambda1 2) (+ (* -1/2 (/ (* (cos phi1) (* (cos phi2) (sin lambda2))) lambda1)) (* 1/4 (* (cos lambda2) (* (cos phi1) (cos phi2))))))
(.f64 (.f64 lambda1 lambda1) (+.f64 (.f64 (.f64 #s(literal 1/4 binary64) (cos.f64 lambda2)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (/.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (.f64 (cos.f64 phi2) (sin.f64 lambda2))) lambda1)))
(* (pow lambda1 2) (+ (* -1 (/ (+ (* -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))))) lambda1)) (* 1/4 (* (cos lambda2) (* (cos phi1) (cos phi2))))))
(.f64 (.f64 lambda1 lambda1) (-.f64 (.f64 (.f64 #s(literal 1/4 binary64) (cos.f64 lambda2)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (/.f64 (-.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 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (cos.f64 (-.f64 phi1 phi2))))) lambda1)) lambda1)))
(* (pow lambda1 2) (+ (* -1 (/ (+ (* -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))))) lambda1)) (* 1/4 (* (cos lambda2) (* (cos phi1) (cos phi2))))))
(.f64 (.f64 lambda1 lambda1) (-.f64 (.f64 (.f64 #s(literal 1/4 binary64) (cos.f64 lambda2)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (/.f64 (-.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 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (cos.f64 (-.f64 phi1 phi2))))) lambda1)) lambda1)))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.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 (.f64 (cos.f64 phi1) (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 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.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 (.f64 (cos.f64 phi1) (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 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.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 (.f64 (cos.f64 phi1) (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 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.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 (.f64 (cos.f64 phi1) (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 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.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 (.f64 (cos.f64 phi1) (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 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.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 (.f64 (cos.f64 phi1) (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 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.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 (.f64 (cos.f64 phi1) (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 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.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 (.f64 (cos.f64 phi1) (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 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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 (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(.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 phi2 phi1)))) (.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))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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 (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(.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 phi2 phi1)))) (.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))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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 (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(.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 phi2 phi1)))) (.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))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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 (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(.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 phi2 phi1)))) (.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))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.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 (.f64 (cos.f64 phi1) (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 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.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 (.f64 (cos.f64 phi1) (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 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.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 (.f64 (cos.f64 phi1) (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 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.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 (.f64 (cos.f64 phi1) (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 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.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 (.f64 (cos.f64 phi1) (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 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.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 (.f64 (cos.f64 phi1) (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 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.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 (.f64 (cos.f64 phi1) (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 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.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 (.f64 (cos.f64 phi1) (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 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(.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 (.f64 (cos.f64 phi1) (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 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(.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 (.f64 (cos.f64 phi1) (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 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(.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 (.f64 (cos.f64 phi1) (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 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(.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 (.f64 (cos.f64 phi1) (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 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.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 (.f64 (cos.f64 phi1) (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 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.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 (.f64 (cos.f64 phi1) (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 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.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 (.f64 (cos.f64 phi1) (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 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.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 (.f64 (cos.f64 phi1) (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 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.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 (.f64 (cos.f64 phi1) (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 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.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 (.f64 (cos.f64 phi1) (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 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.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 (.f64 (cos.f64 phi1) (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 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.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 (.f64 (cos.f64 phi1) (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 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.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 (.f64 (cos.f64 phi1) (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 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.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 (.f64 (cos.f64 phi1) (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 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.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 (.f64 (cos.f64 phi1) (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 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.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 (.f64 (cos.f64 phi1) (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 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.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 (.f64 (cos.f64 phi1) (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 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.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 (.f64 (cos.f64 phi1) (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 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.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 (.f64 (cos.f64 phi1) (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 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.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 (.f64 (cos.f64 phi1) (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 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.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 (.f64 (cos.f64 phi1) (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 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.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 (.f64 (cos.f64 phi1) (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 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.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 (.f64 (cos.f64 phi1) (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 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.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 (.f64 (cos.f64 phi1) (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 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.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 (.f64 (cos.f64 phi1) (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 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.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 (.f64 (cos.f64 phi1) (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 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.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 (.f64 (cos.f64 phi1) (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 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.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 (.f64 (cos.f64 phi1) (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 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.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 (.f64 (cos.f64 phi1) (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 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.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 (.f64 (cos.f64 phi1) (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 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.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 (.f64 (cos.f64 phi1) (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 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.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 (.f64 (cos.f64 phi1) (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 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.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 (.f64 (cos.f64 phi1) (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 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.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 (.f64 (cos.f64 phi1) (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 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.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 (.f64 (cos.f64 phi1) (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 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.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 (.f64 (cos.f64 phi1) (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 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.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 (.f64 (cos.f64 phi1) (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 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.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 (.f64 (cos.f64 phi1) (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 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.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 (.f64 (cos.f64 phi1) (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 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.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 (.f64 (cos.f64 phi1) (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 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.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)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.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)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.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)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.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)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.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)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.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)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.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)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.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)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))) (.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))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))) (.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))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))) (.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))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))) (.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))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.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)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.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)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.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)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.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)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.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)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.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)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.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)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.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)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.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)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.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)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.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)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.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)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.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)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.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)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.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)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.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)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.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)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.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)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.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)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.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)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.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 lambda2 lambda1)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.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 lambda2 lambda1)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.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 lambda2 lambda1)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.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 lambda2 lambda1)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.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)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.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)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.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)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.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)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.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)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.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)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.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)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.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)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.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)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.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)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.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)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.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)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (neg phi2))) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi2))) (.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
(+ (sqrt (+ 1/2 (+ (* -1/2 (cos (neg phi2))) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))) (* 1/4 (* (* phi1 (sin (neg phi2))) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg phi2))) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))))))
(+.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi2))) (.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) (.f64 (.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) (cos.f64 phi2))) (.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))))
(+ (sqrt (+ 1/2 (+ (* -1/2 (cos (neg phi2))) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))) (* phi1 (+ (* 1/4 (* (sin (neg phi2)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg phi2))) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))))) (* 1/2 (* (* phi1 (- (+ (* -1/2 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (* 1/4 (cos (neg phi2)))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (+ 1/2 (+ (* -1/2 (cos (neg phi2))) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))))) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg phi2))) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))))))))
(+.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi2))) (.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) (.f64 phi1 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi2))) (.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (+.f64 (.f64 #s(literal 1/4 binary64) (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (-.f64 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1/4 binary64) (cos.f64 phi2))) (/.f64 (.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) (cos.f64 phi2))) (.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))))))))
(+ (sqrt (+ 1/2 (+ (* -1/2 (cos (neg phi2))) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))) (* phi1 (+ (* 1/4 (* (sin (neg phi2)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg phi2))) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg phi2))) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (- (+ (* -1/2 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (* 1/4 (cos (neg phi2)))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (+ 1/2 (+ (* -1/2 (cos (neg phi2))) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))))) (* 1/2 (* (* phi1 (- (* -1/12 (sin (neg phi2))) (* 1/4 (/ (* (sin (neg phi2)) (- (+ (* -1/2 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (* 1/4 (cos (neg phi2)))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (+ 1/2 (+ (* -1/2 (cos (neg phi2))) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))))) (+ 1/2 (+ (* -1/2 (cos (neg phi2))) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))))) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg phi2))) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))))))))))
(+.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi2))) (.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) (.f64 phi1 (+.f64 (.f64 (.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) (cos.f64 phi2))) (.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))) (.f64 phi1 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi2))) (.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (-.f64 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1/4 binary64) (cos.f64 phi2))) (/.f64 (.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) (cos.f64 phi2))) (.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))) (.f64 phi1 (.f64 (+.f64 (.f64 #s(literal -1/12 binary64) (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) (.f64 #s(literal -1/4 binary64) (.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi2)) (/.f64 (-.f64 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1/4 binary64) (cos.f64 phi2))) (/.f64 (.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) (cos.f64 phi2))) (.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi2))) (.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi2))) (.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))))))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))
(sqrt.f64 (+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))
(sqrt.f64 (+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))
(sqrt.f64 (+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))
(sqrt.f64 (+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))) (.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)))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))) (.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)))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))) (.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)))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))) (.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)))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
(+ (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))) (* -1/4 (* (* phi2 (sin phi1)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos phi1)) (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))))))
(+.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 phi2 (sin.f64 phi1))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))))
(+ (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))) (* phi2 (+ (* -1/4 (* (sin phi1) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos phi1)) (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))))) (* 1/2 (* (* phi2 (- (+ (* -1/2 (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (* 1/4 (cos phi1))) (* 1/16 (/ (pow (sin phi1) 2) (+ 1/2 (+ (* -1/2 (cos phi1)) (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))))) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos phi1)) (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))))))))
(+.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) (.f64 phi2 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (+.f64 (.f64 #s(literal -1/4 binary64) (sin.f64 phi1)) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (+.f64 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1/4 binary64) (cos.f64 phi1))) (.f64 #s(literal -1/16 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))))))))
(+ (sqrt (+ 1/2 (+ (* -1/2 (cos phi1)) (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))) (* phi2 (+ (* -1/4 (* (sin phi1) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos phi1)) (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos phi1)) (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (- (+ (* -1/2 (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (* 1/4 (cos phi1))) (* 1/16 (/ (pow (sin phi1) 2) (+ 1/2 (+ (* -1/2 (cos phi1)) (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))))) (* 1/2 (* (* phi2 (- (* 1/12 (sin phi1)) (* -1/4 (/ (* (sin phi1) (- (+ (* -1/2 (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (* 1/4 (cos phi1))) (* 1/16 (/ (pow (sin phi1) 2) (+ 1/2 (+ (* -1/2 (cos phi1)) (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))))) (+ 1/2 (+ (* -1/2 (cos phi1)) (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))))) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos phi1)) (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))))))))))
(+.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) (.f64 phi2 (+.f64 (.f64 (.f64 #s(literal -1/4 binary64) (sin.f64 phi1)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))) (.f64 phi2 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (+.f64 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1/4 binary64) (cos.f64 phi1))) (.f64 #s(literal -1/16 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))) (.f64 phi2 (.f64 (+.f64 (.f64 #s(literal 1/12 binary64) (sin.f64 phi1)) (.f64 #s(literal 1/4 binary64) (.f64 (sin.f64 phi1) (/.f64 (+.f64 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1/4 binary64) (cos.f64 phi1))) (.f64 #s(literal -1/16 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))))))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))
(sqrt.f64 (+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))
(sqrt.f64 (+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))
(sqrt.f64 (+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))
(sqrt.f64 (+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))
(sqrt.f64 (+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))
(sqrt.f64 (+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))
(sqrt.f64 (+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))
(sqrt.f64 (+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg lambda2)))))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))))))
(+ (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg lambda2))))))))) (* 1/4 (* (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg lambda2)))))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))))))) (.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) (cos.f64 (-.f64 phi1 phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))))))))))
(+ (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg lambda2))))))))) (* lambda1 (+ (* 1/4 (* (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg lambda2)))))))))))) (* 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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg lambda2)))))))))))) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg lambda2)))))))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))))))) (.f64 lambda1 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))))))) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))))) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 phi1) (.f64 (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 (sin.f64 lambda2) #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))))))))))))))
(+ (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg lambda2))))))))) (* lambda1 (+ (* 1/4 (* (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg lambda2)))))))))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg lambda2))))))))))))) (* 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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg lambda2)))))))))))))) (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg lambda2)))))))))))) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg lambda2)))))))))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))))))) (.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 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))))))))) (.f64 lambda1 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))))))) (-.f64 (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 phi1) (.f64 (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 (sin.f64 lambda2) #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))))))))) (.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 (cos.f64 phi2) (.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) (-.f64 (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 phi1) (.f64 (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 (sin.f64 lambda2) #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))))))))))) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))))))))))))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))
(sqrt.f64 (+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))
(sqrt.f64 (+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))
(sqrt.f64 (+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))
(sqrt.f64 (+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))))))))
(sqrt.f64 (+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))))))))
(sqrt.f64 (+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))))))))
(sqrt.f64 (+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))))))))
(sqrt.f64 (+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos lambda1))))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)))))))
(+ (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos lambda1)))))))) (* -1/4 (* (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos lambda1))))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1))))))) (.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) (cos.f64 (-.f64 phi1 phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda1))))))))))
(+ (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos lambda1)))))))) (* lambda2 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda1))) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos lambda1))))))))))) (* 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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos lambda1))))))))))) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos lambda1))))))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1))))))) (.f64 lambda2 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)))))))) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.f64 #s(literal 1/2 binary64) (.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) (cos.f64 (-.f64 phi1 phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda1))))))))))))))
(+ (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos lambda1)))))))) (* lambda2 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda1))) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos lambda1))))))))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos 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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos lambda1)))))))))))) (* 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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos lambda1))))))))))))) (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos lambda1))))))))))) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos lambda1))))))))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1))))))) (.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) (cos.f64 (-.f64 phi1 phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1))))))))) (.f64 lambda2 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.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) (cos.f64 (-.f64 phi1 phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1))))))))) (.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) (cos.f64 (-.f64 phi1 phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)))))))))) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda1))))))))))))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))
(sqrt.f64 (+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))
(sqrt.f64 (+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))
(sqrt.f64 (+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))
(sqrt.f64 (+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))))))))
(sqrt.f64 (+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))))))))
(sqrt.f64 (+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))))))))
(sqrt.f64 (+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))))))))
(sqrt.f64 (+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
(+ 1/2 (+ (* -1/2 (cos (neg phi2))) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi2))) (.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(+ 1/2 (+ (* -1/2 (cos (neg phi2))) (+ (* 1/2 (* phi1 (sin (neg phi2)))) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 phi1 (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) (cos.f64 phi2))) (.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
(+ 1/2 (+ (* -1/2 (cos (neg phi2))) (+ (* phi1 (+ (* 1/2 (sin (neg phi2))) (* phi1 (+ (* -1/2 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (* 1/4 (cos (neg phi2))))))) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 phi1 (+.f64 (neg.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 phi2))) (.f64 phi1 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1/4 binary64) (cos.f64 phi2)))))))))
(+ 1/2 (+ (* -1/2 (cos (neg phi2))) (+ (* phi1 (+ (* 1/2 (sin (neg phi2))) (* phi1 (+ (* -1/2 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (+ (* -1/12 (* phi1 (sin (neg phi2)))) (* 1/4 (cos (neg phi2)))))))) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi2))) (+.f64 (.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 phi1 (+.f64 (neg.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 phi2))) (.f64 phi1 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (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/12 binary64) (.f64 phi1 (-.f64 #s(literal 0 binary64) (sin.f64 phi2)))) (.f64 #s(literal 1/4 binary64) (cos.f64 phi2)))))))))
(+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))
(+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))
(+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))
(+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))
(+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(+ 1/2 (+ (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))) (.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))))))
(+ 1/2 (+ (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))) (.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))))))
(+ 1/2 (+ (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))) (.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))))))
(+ 1/2 (+ (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))) (.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))))))
(+ 1/2 (+ (* -1/2 (cos phi1)) (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(+ 1/2 (+ (* -1/2 (cos phi1)) (+ (* -1/2 (* phi2 (sin phi1))) (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (+.f64 (cos.f64 phi1) (.f64 phi2 (sin.f64 phi1)))) (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
(+ 1/2 (+ (* -1/2 (cos phi1)) (+ (* phi2 (+ (* -1/2 (sin phi1)) (* phi2 (+ (* -1/2 (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (* 1/4 (cos phi1)))))) (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (+.f64 (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 phi2 (+.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 phi1)) (.f64 phi2 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1/4 binary64) (cos.f64 phi1)))))))))
(+ 1/2 (+ (* -1/2 (cos phi1)) (+ (* phi2 (+ (* -1/2 (sin phi1)) (* phi2 (+ (* -1/2 (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (+ (* 1/12 (* phi2 (sin phi1))) (* 1/4 (cos phi1))))))) (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (+.f64 (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 phi2 (+.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 phi1)) (.f64 phi2 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (+.f64 (.f64 (.f64 #s(literal 1/12 binary64) phi2) (sin.f64 phi1)) (.f64 #s(literal 1/4 binary64) (cos.f64 phi1)))))))))
(+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))
(+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))
(+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))
(+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))
(+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(+ 1/2 (+ (* -1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))
(+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(+ 1/2 (+ (* -1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))
(+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(+ 1/2 (+ (* -1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))
(+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(+ 1/2 (+ (* -1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))
(+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg lambda2))))))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))))))
(+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (+ (* 1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg lambda2)))))))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))) (.f64 (.f64 #s(literal 1/2 binary64) lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))))))))
(+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (+ (* lambda1 (+ (* 1/4 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))) (* 1/2 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg lambda2)))))))))
(+.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/2 binary64) (.f64 #s(literal -1/2 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 #s(literal 1/2 binary64) (cos.f64 phi1)) (.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))))))))
(+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (+ (* 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))))))))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg lambda2)))))))))
(+.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/2 binary64) (.f64 #s(literal -1/2 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 (cos.f64 phi1) (.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)))))))))))
(+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))
(+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))
(+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))
(+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))
(+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))))))
(+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))))))
(+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))))))
(+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))))))
(+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos lambda1)))))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1))))))
(+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos lambda1))))))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 lambda2 (cos.f64 phi1)) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda1))))))
(+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (+ (* lambda2 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* 1/4 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos lambda1))))))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (.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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1))))))
(+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (+ (* 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)))))))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos lambda1))))))))
(+.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/2 binary64) (.f64 #s(literal -1/2 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))))))))))
(+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))
(+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))
(+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))
(+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))
(+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))))
(+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))))
(+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))))
(+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))))
(+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(* 2 (* R (atan2 (sqrt (- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (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 #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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (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 #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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (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 #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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (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 #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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (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 #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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (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 #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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (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 #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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (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 #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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (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 #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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (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 #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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (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 #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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (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 #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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (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 #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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (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 #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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (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 #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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (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 #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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (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 #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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (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 #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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (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 #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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (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 #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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (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 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (-.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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.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) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (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 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (-.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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.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) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (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 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (-.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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.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) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (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 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (-.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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (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 #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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (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 #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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (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 #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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (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 #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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (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 #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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (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 #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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (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 #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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (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 #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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (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 (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 #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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (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 (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 #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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (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 (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 #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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (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 (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 #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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (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 #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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (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 #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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (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 #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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (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 #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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (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 #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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (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 #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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (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 #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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (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 #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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (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 #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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (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 #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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (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 #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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (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 #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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (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 #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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (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 #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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (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 #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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (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 #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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (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 #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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (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 #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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (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 #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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (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 #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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (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 #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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (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 #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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (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 #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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (- (* (cos (* 1/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 (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 #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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (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 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (-.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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.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) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (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 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (-.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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.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) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (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 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (-.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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.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) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (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 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (-.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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (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 (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 #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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (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 (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 #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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (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 (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 #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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (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 (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 #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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (- 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))) (* phi1 (+ (* -1/4 (/ phi2 (sin (* 1/2 (- lambda1 lambda2))))) (* 1/2 (/ (* phi1 (- (+ 1/4 (* -1/2 (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (* 1/16 (/ (pow phi2 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 phi1 (+.f64 (/.f64 (.f64 #s(literal -1/4 binary64) phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 phi1 (-.f64 (+.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)))) (/.f64 (.f64 #s(literal 1/16 binary64) (.f64 phi2 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))))
(+ (sin (* 1/2 (- lambda1 lambda2))) (* phi1 (+ (* -1/4 (/ phi2 (sin (* 1/2 (- lambda1 lambda2))))) (* phi1 (+ (* -1/2 (/ (* phi1 (+ (* -1/4 (/ (* phi2 (- (+ 1/4 (* -1/2 (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (* 1/16 (/ (pow phi2 2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))))) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (* -1/12 phi2))) (sin (* 1/2 (- lambda1 lambda2))))) (* 1/2 (/ (- (+ 1/4 (* -1/2 (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (* 1/16 (/ (pow phi2 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 phi1 (+.f64 (/.f64 (.f64 #s(literal -1/4 binary64) phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (.f64 phi1 (+.f64 (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (+.f64 (/.f64 (.f64 #s(literal -1/4 binary64) (.f64 phi2 (-.f64 (+.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)))) (/.f64 (.f64 #s(literal 1/16 binary64) (.f64 phi2 phi2)) (pow.f64 (sin.f64 (.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))) (.f64 #s(literal -1/12 binary64) phi2)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (/.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.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)))) (/.f64 (.f64 #s(literal 1/16 binary64) (.f64 phi2 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))))))
(sqrt (- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))
(sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.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)))))))
(sqrt (- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))
(sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.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)))))))
(sqrt (- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))
(sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.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)))))))
(sqrt (- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))
(sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.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)))))))
(sqrt (- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))
(sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.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)))))))
(sqrt (- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))
(sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.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)))))))
(sqrt (- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))
(sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.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)))))))
(sqrt (- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))
(sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.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)))))))
(sqrt (- (+ (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))
(sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (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) 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)))))))
(+ (sqrt (- (+ (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (* 1/2 (* (* lambda1 (* (cos phi1) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (- (+ (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))))))
(+.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (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) 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))))))) (.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (.f64 (cos.f64 phi1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (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) 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))))))))))
(+ (sqrt (- (+ (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2))) (- (+ (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))))) (sqrt (/ 1 (- (+ (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))))) (* 1/2 (* (* (cos phi1) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (sqrt (/ 1 (- (+ (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))))))))
(+.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (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) 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))))))) (.f64 lambda1 (.f64 #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) lambda2)) #s(literal 2 binary64))) (-.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)))))))) (+.f64 (.f64 lambda1 (-.f64 (.f64 (cos.f64 phi1) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (+.f64 (.f64 (cos.f64 phi1) (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) 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))))))))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))
(+ (sqrt (- (+ (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (* lambda1 (+ (* 1/2 (* (* (cos phi1) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (sqrt (/ 1 (- (+ (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (+ (* -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 (* -1/2 lambda2)) (* (sin (* -1/2 lambda2)) (- (* (cos phi1) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2))) (- (+ (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))))))) (- (+ (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))))) (sqrt (/ 1 (- (+ (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))))) (* 1/2 (* (- (* (cos phi1) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2))) (- (+ (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))))) (sqrt (/ 1 (- (+ (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))))))))))
(+.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (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) 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))))))) (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (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) 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))))))))) (.f64 lambda1 (.f64 #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) lambda2)) #s(literal 2 binary64))) (-.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)))))))) (+.f64 (.f64 lambda1 (+.f64 (.f64 (cos.f64 phi1) (.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 phi1) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (-.f64 (.f64 (cos.f64 phi1) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 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 (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 phi1) (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) 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)))))))))) (+.f64 (.f64 (cos.f64 phi1) (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) 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)))))))))) (-.f64 (.f64 (cos.f64 phi1) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (+.f64 (.f64 (cos.f64 phi1) (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) 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)))))))))))))))
(sqrt (- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))
(sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.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)))))))
(sqrt (- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))
(sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.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)))))))
(sqrt (- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))
(sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.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)))))))
(sqrt (- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))
(sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.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)))))))
(sqrt (- (+ (* (cos phi1) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))
(sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (-.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)))))))
(sqrt (- (+ (* (cos phi1) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))
(sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (-.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)))))))
(sqrt (- (+ (* (cos phi1) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))
(sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (-.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)))))))
(sqrt (- (+ (* (cos phi1) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))
(sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (-.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)))))))
(sqrt (- (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))
(sqrt.f64 (+.f64 (.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 #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)))))))
(+ (sqrt (- (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (* -1/2 (* (* lambda2 (* (cos phi1) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (- (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))))))
(+.f64 (sqrt.f64 (+.f64 (.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 #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))))))) (.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (.f64 (cos.f64 phi1) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (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) 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))))))))))
(+ (sqrt (- (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (sqrt (/ 1 (- (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2))) (- (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 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)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))))))))
(+.f64 (sqrt.f64 (+.f64 (.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 #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))))))) (.f64 lambda2 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (-.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)))))))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (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 lambda2 (+.f64 (.f64 (cos.f64 phi1) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (-.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)))))))))))))))
(+ (sqrt (- (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (sqrt (/ 1 (- (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))))) (* lambda2 (+ (* 1/2 (* (* lambda2 (- (* (cos phi1) (+ (* 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 (* 1/2 lambda1)) (* (sin (* 1/2 lambda1)) (- (* (cos phi1) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2))) (- (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))))))) (- (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 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)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))))) (* 1/2 (* (- (* (cos phi1) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2))) (- (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 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)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))))))))))
(+.f64 (sqrt.f64 (+.f64 (.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 #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))))))) (.f64 lambda2 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (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) 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))))))))) (.f64 lambda2 (.f64 #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) lambda1)) #s(literal 2 binary64))) (-.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)))))))) (+.f64 (.f64 lambda2 (+.f64 (.f64 (cos.f64 phi1) (.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 phi1) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (+.f64 (.f64 (cos.f64 phi1) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (-.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))))))))))) (+.f64 (.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 #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)))))))))) (+.f64 (.f64 (cos.f64 phi1) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (-.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))))))))))))))))
(sqrt (- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))
(sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.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)))))))
(sqrt (- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))
(sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.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)))))))
(sqrt (- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))
(sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.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)))))))
(sqrt (- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))
(sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.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)))))))
(sqrt (- (+ (* (cos phi1) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))
(sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.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)))))))
(sqrt (- (+ (* (cos phi1) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))
(sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.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)))))))
(sqrt (- (+ (* (cos phi1) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))
(sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.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)))))))
(sqrt (- (+ (* (cos phi1) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))
(sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.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)))))))
(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/8 (* (* phi2 (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2))) (sqrt (/ 1 (pow (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) 3))))))))
(+.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 (.f64 #s(literal -1/8 binary64) (.f64 phi2 (.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))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) #s(literal 3 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/8 (* (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (sqrt (/ 1 (pow (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) 3))))) (* -1/16 (* (* phi2 (* (pow (cos (* 1/2 phi1)) 3) (pow (sin (* 1/2 phi1)) 3))) (sqrt (/ 1 (pow (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) 5))))))))))
(+.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 (.f64 (.f64 #s(literal -1/8 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)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) #s(literal 3 binary64))))) (.f64 (.f64 #s(literal -1/16 binary64) (.f64 phi2 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 3 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 3 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) #s(literal 5 binary64))))))))))
(* (sqrt (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (sqrt -1))
(.f64 (sqrt.f64 (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (sqrt.f64 #s(literal -1 binary64)))
(* phi2 (+ (* 1/2 (* (sqrt (/ 1 (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (/ (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (sqrt -1)))) (* (sqrt (/ (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) phi2)) (sqrt -1))))
(.f64 phi2 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 phi2 (.f64 phi2 phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (/.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (sqrt.f64 #s(literal -1 binary64))))) (.f64 (sqrt.f64 (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) phi2)) (sqrt.f64 #s(literal -1 binary64)))))
(* phi2 (+ (* -1/8 (* (sqrt (/ 1 (* (pow phi2 5) (* (pow (cos (* 1/2 phi1)) 3) (pow (sin (* 1/2 phi1)) 3))))) (/ (pow (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) 2) (pow (sqrt -1) 3)))) (+ (* 1/2 (* (sqrt (/ 1 (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (/ (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (sqrt -1)))) (* (sqrt (/ (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) phi2)) (sqrt -1)))))
(.f64 phi2 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 phi2 (.f64 phi2 phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (/.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (sqrt.f64 #s(literal -1 binary64))))) (.f64 (sqrt.f64 (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) phi2)) (sqrt.f64 #s(literal -1 binary64)))) (.f64 (.f64 #s(literal -1/8 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 (pow.f64 phi2 #s(literal 5 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 3 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 3 binary64)))))) (/.f64 (pow.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal -1 binary64) (sqrt.f64 #s(literal -1 binary64)))))))
(* phi2 (+ (* -1/8 (* (sqrt (/ 1 (* (pow phi2 5) (* (pow (cos (* 1/2 phi1)) 3) (pow (sin (* 1/2 phi1)) 3))))) (/ (pow (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) 2) (pow (sqrt -1) 3)))) (+ (* 1/16 (* (sqrt (/ 1 (* (pow phi2 7) (* (pow (cos (* 1/2 phi1)) 5) (pow (sin (* 1/2 phi1)) 5))))) (/ (pow (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) 3) (pow (sqrt -1) 5)))) (+ (* 1/2 (* (sqrt (/ 1 (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (/ (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (sqrt -1)))) (* (sqrt (/ (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) phi2)) (sqrt -1))))))
(.f64 phi2 (+.f64 (.f64 (.f64 #s(literal -1/8 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 (pow.f64 phi2 #s(literal 5 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 3 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 3 binary64)))))) (/.f64 (pow.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal -1 binary64) (sqrt.f64 #s(literal -1 binary64))))) (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 phi2 (.f64 phi2 phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (/.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (sqrt.f64 #s(literal -1 binary64))))) (.f64 (sqrt.f64 (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) phi2)) (sqrt.f64 #s(literal -1 binary64)))) (.f64 (.f64 #s(literal 1/16 binary64) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 7 binary64))) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 5 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 5 binary64)))))) (/.f64 (pow.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) #s(literal 3 binary64)) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 5 binary64)))))))
(* -1 (* (sqrt (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (sqrt -1)))
(.f64 (sqrt.f64 (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (neg.f64 (sqrt.f64 #s(literal -1 binary64))))
(* -1 (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (* (pow phi2 3) (* (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 (* 1/2 phi1)) (sin (* 1/2 phi1))) phi2)) (sqrt -1)))))
(.f64 (-.f64 #s(literal 0 binary64) phi2) (+.f64 (.f64 (sqrt.f64 (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) phi2)) (sqrt.f64 #s(literal -1 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 phi2 (.f64 phi2 phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (sqrt.f64 #s(literal -1 binary64))) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 (+ (* -1/8 (* (sqrt (/ 1 (* (pow phi2 5) (* (pow (cos (* 1/2 phi1)) 3) (pow (sin (* 1/2 phi1)) 3))))) (* (sqrt -1) (pow (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) 2)))) (+ (* 1/2 (* (sqrt (/ 1 (* (pow phi2 3) (* (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 (* 1/2 phi1)) (sin (* 1/2 phi1))) phi2)) (sqrt -1))))))
(.f64 (-.f64 #s(literal 0 binary64) phi2) (+.f64 (+.f64 (.f64 (sqrt.f64 (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) phi2)) (sqrt.f64 #s(literal -1 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 phi2 (.f64 phi2 phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (sqrt.f64 #s(literal -1 binary64))) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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/8 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 (pow.f64 phi2 #s(literal 5 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 3 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 3 binary64)))))) (.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) #s(literal 2 binary64))))))
(* -1 (* phi2 (+ (* -1/8 (* (sqrt (/ 1 (* (pow phi2 5) (* (pow (cos (* 1/2 phi1)) 3) (pow (sin (* 1/2 phi1)) 3))))) (* (sqrt -1) (pow (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) 2)))) (+ (* 1/16 (* (sqrt (/ 1 (* (pow phi2 7) (* (pow (cos (* 1/2 phi1)) 5) (pow (sin (* 1/2 phi1)) 5))))) (* (sqrt -1) (pow (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) 3)))) (+ (* 1/2 (* (sqrt (/ 1 (* (pow phi2 3) (* (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 (* 1/2 phi1)) (sin (* 1/2 phi1))) phi2)) (sqrt -1)))))))
(.f64 (-.f64 #s(literal 0 binary64) phi2) (+.f64 (.f64 (.f64 #s(literal -1/8 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 (pow.f64 phi2 #s(literal 5 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 3 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 3 binary64)))))) (.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) #s(literal 2 binary64)))) (+.f64 (+.f64 (.f64 (sqrt.f64 (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) phi2)) (sqrt.f64 #s(literal -1 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 phi2 (.f64 phi2 phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (sqrt.f64 #s(literal -1 binary64))) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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/16 binary64) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 7 binary64))) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 5 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 5 binary64)))))) (.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) #s(literal 3 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 #s(literal -1/2 binary64) (*.f64 phi1 phi2)))
(+ (* phi1 (- (* phi1 (+ 1/4 (* -1/2 (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (* 1/2 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 phi1 (+.f64 (.f64 phi1 (+.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))))) (.f64 #s(literal -1/2 binary64) phi2))))
(+ (* phi1 (- (* phi1 (+ 1/4 (+ (* -1/2 (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* 1/12 (* phi1 phi2))))) (* 1/2 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 phi1 (+.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 #s(literal 1/12 binary64) (.f64 phi1 phi2))))) (.f64 #s(literal -1/2 binary64) phi2))))
(- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))
(+.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 #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))))))
(- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))
(+.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 #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))))))
(- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))
(+.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 #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))))))
(- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))
(+.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 #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))))))
(- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))
(+.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 #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))))))
(- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))
(+.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 #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))))))
(- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))
(+.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 #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))))))
(- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))
(+.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 #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))))))
(- (+ (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))
(+.f64 (.f64 (cos.f64 phi1) (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) 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))))))
(- (+ (* lambda1 (* (cos phi1) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (+ (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))
(+.f64 (.f64 lambda1 (.f64 (.f64 (cos.f64 phi1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (-.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)))))))
(- (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* (cos phi1) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))
(+.f64 (.f64 lambda1 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (.f64 lambda1 (cos.f64 phi1)) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))) (+.f64 (.f64 (cos.f64 phi1) (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) 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)))))))
(- (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (* (cos phi1) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))
(+.f64 (.f64 lambda1 (+.f64 (.f64 (.f64 (cos.f64 phi1) (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) (+.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 phi1)) (.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 (.f64 (cos.f64 phi1) (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) 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)))))))
(- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))
(+.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 #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))))))
(- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))
(+.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 #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))))))
(- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))
(+.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 #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))))))
(- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))
(+.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 #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))))))
(- (+ (* (cos phi1) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))
(+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (-.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))))))
(- (+ (* (cos phi1) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))
(+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (-.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))))))
(- (+ (* (cos phi1) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))
(+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (-.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))))))
(- (+ (* (cos phi1) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))
(+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (-.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))))))
(- (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))
(+.f64 (.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 #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))))))
(- (+ (* -1 (* lambda2 (* (cos phi1) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))
(-.f64 (-.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (.f64 lambda2 (.f64 (.f64 (cos.f64 phi1) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))
(- (+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (* lambda2 (* (cos phi1) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))
(+.f64 (.f64 lambda2 (-.f64 (.f64 (.f64 lambda2 (cos.f64 phi1)) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (-.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)))))))
(- (+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (* lambda2 (+ (* lambda2 (* (cos phi1) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* (cos phi1) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))) (+ (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))
(+.f64 (.f64 lambda2 (-.f64 (.f64 lambda2 (+.f64 (.f64 (cos.f64 phi1) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (.f64 (.f64 lambda2 (cos.f64 phi1)) (.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 (.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (-.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)))))))
(- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))
(+.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 #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))))))
(- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))
(+.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 #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))))))
(- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))
(+.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 #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))))))
(- (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))
(+.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 #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))))))
(- (+ (* (cos phi1) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))
(+.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 #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))))))
(- (+ (* (cos phi1) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))
(+.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 #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))))))
(- (+ (* (cos phi1) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))
(+.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 #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))))))
(- (+ (* (cos phi1) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))
(+.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 #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))))))
(+ (* (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 (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 #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))))))
(+ (* -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 #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))))))
(+ (* -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 #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))))))
(* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))
(.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))
(* phi2 (- (+ (/ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) phi2) (/ (pow (sin (* 1/2 phi1)) 2) phi2)) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))
(.f64 phi2 (+.f64 (/.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) phi2) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(* phi2 (- (+ (/ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) phi2) (/ (pow (sin (* 1/2 phi1)) 2) phi2)) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))
(.f64 phi2 (+.f64 (/.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) phi2) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(* phi2 (- (+ (/ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) phi2) (/ (pow (sin (* 1/2 phi1)) 2) phi2)) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))
(.f64 phi2 (+.f64 (/.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) phi2) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))
(.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))
(* -1 (* phi2 (- (* -1 (/ (+ (* (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)))))))
(.f64 (-.f64 #s(literal 0 binary64) phi2) (+.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 #s(literal 0 binary64) phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(* -1 (* phi2 (- (* -1 (/ (+ (* (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)))))))
(.f64 (-.f64 #s(literal 0 binary64) phi2) (+.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 #s(literal 0 binary64) phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(* -1 (* phi2 (- (* -1 (/ (+ (* (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)))))))
(.f64 (-.f64 #s(literal 0 binary64) phi2) (+.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 #s(literal 0 binary64) phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(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)))
(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)))
(- (+ 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 (cos.f64 phi2) (.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) 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 #s(literal 1 binary64) (-.f64 (+.f64 (.f64 (cos.f64 phi2) (.f64 (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 (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 (cos.f64 phi2) (.f64 (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) (cos.f64 phi2)) (.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) phi2)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))
(- (+ 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 (cos.f64 phi2) (.f64 (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 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (.f64 (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 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.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 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) (.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
(- (+ 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 (.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 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) (.f64 #s(literal -1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.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 #s(literal 1/2 binary64) (.f64 (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 (.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 #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 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 (.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 #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 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 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))) #s(literal -1/12 binary64)) (.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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (+.f64 #s(literal 1 binary64) (.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 (+.f64 #s(literal 1 binary64) (.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 (+.f64 #s(literal 1 binary64) (.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 (+.f64 #s(literal 1 binary64) (.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 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) #s(literal -1/12 binary64)) (.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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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)) 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 #s(literal -1/2 binary64) (*.f64 lambda1 (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)) (.f64 (*.f64 #s(literal 1/6 binary64) lambda1) (-.f64 #s(literal 0 binary64) (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 (* -1 (+ lambda2 (* -1 lambda1)))) 1)
(+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)
(+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)
(+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(- (cos (* -1 (+ 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 (.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (cos.f64 lambda1))) (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))))) (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 (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 (neg (+ lambda2 (* -1 lambda1)))))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))
(- 1 (cos (neg (+ lambda2 (* -1 lambda1)))))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))
(- 1 (cos (neg (+ lambda2 (* -1 lambda1)))))
(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))
(- 1 (cos (neg (+ 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 #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)))
(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 #s(literal -1/2 binary64) (*.f64 lambda1 (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)) (.f64 (*.f64 #s(literal 1/6 binary64) lambda1) (-.f64 #s(literal 0 binary64) (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 (.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (cos.f64 lambda1))) (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))))) (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))
(- 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 #s(literal 1/2 binary64) (-.f64 (.f64 phi1 (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) (cos.f64 phi2))))
(- (+ 1/2 (* phi1 (- (* 1/4 (* phi1 (cos (neg phi2)))) (* -1/2 (sin (neg phi2)))))) (* 1/2 (cos (neg phi2))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi2))) (.f64 phi1 (+.f64 (neg.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 phi2))) (.f64 #s(literal 1/4 binary64) (*.f64 phi1 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi2))) (.f64 phi1 (+.f64 (neg.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 phi2))) (.f64 phi1 (+.f64 (.f64 #s(literal -1/12 binary64) (.f64 phi1 (-.f64 #s(literal 0 binary64) (sin.f64 phi2)))) (*.f64 #s(literal 1/4 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 #s(literal -1/2 binary64) (+.f64 (cos.f64 phi1) (.f64 phi2 (sin.f64 phi1)))))
(- (+ 1/2 (* phi2 (- (* 1/4 (* phi2 (cos phi1))) (* 1/2 (sin phi1))))) (* 1/2 (cos phi1)))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 phi2 (+.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 phi1)) (.f64 #s(literal 1/4 binary64) (*.f64 phi2 (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 #s(literal -1/2 binary64) (cos.f64 phi1)) (.f64 phi2 (+.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 phi1)) (.f64 phi2 (+.f64 (.f64 (.f64 #s(literal 1/12 binary64) phi2) (sin.f64 phi1)) (*.f64 #s(literal 1/4 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/2 (pow lambda1 2))
(.f64 #s(literal 1/2 binary64) (.f64 lambda1 lambda1))
(- (* -1 (* lambda1 lambda2)) (* -1/2 (pow lambda1 2)))
(+.f64 (-.f64 #s(literal 0 binary64) (.f64 lambda1 lambda2)) (.f64 #s(literal 1/2 binary64) (*.f64 lambda1 lambda1)))
(- (* lambda2 (- (* lambda2 (- 1/2 (* 1/4 (pow lambda1 2)))) lambda1)) (* -1/2 (pow lambda1 2)))
(+.f64 (.f64 lambda2 (-.f64 (.f64 lambda2 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/4 binary64) (.f64 lambda1 lambda1)))) lambda1)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 lambda1)))
(- (* lambda2 (- (* lambda2 (- (+ 1/2 (* 1/6 (* lambda1 lambda2))) (* 1/4 (pow lambda1 2)))) lambda1)) (* -1/2 (pow lambda1 2)))
(+.f64 (.f64 lambda2 (-.f64 (.f64 lambda2 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/6 binary64) (.f64 lambda1 lambda2)) (.f64 #s(literal -1/4 binary64) (.f64 lambda1 lambda1))))) lambda1)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 lambda1)))
(- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))
(-.f64 #s(literal 1 binary64) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 lambda2)))))))
(- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))
(-.f64 #s(literal 1 binary64) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 lambda2)))))))
(- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))
(-.f64 #s(literal 1 binary64) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 lambda2)))))))
(- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))
(-.f64 #s(literal 1 binary64) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 lambda2)))))))
(- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))
(-.f64 #s(literal 1 binary64) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 lambda2)))))))
(- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))
(-.f64 #s(literal 1 binary64) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 lambda2)))))))
(- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))
(-.f64 #s(literal 1 binary64) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 lambda2)))))))
(- 1 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))))
(-.f64 #s(literal 1 binary64) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 lambda2)))))))
(- 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 (- (* 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/2 (* (pow lambda1 2) (cos lambda2)))
(.f64 (.f64 #s(literal 1/2 binary64) (*.f64 lambda1 lambda1)) (cos.f64 lambda2))
(* (pow lambda1 2) (- (* -1 (/ (sin lambda2) lambda1)) (* -1/2 (cos lambda2))))
(.f64 (.f64 lambda1 lambda1) (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 (sin.f64 lambda2) lambda1)) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))))
(* (pow lambda1 2) (- (/ 1 (pow lambda1 2)) (+ (* -1/2 (cos lambda2)) (+ (/ (cos lambda2) (pow lambda1 2)) (/ (sin lambda2) lambda1)))))
(.f64 (.f64 lambda1 lambda1) (-.f64 (+.f64 (/.f64 #s(literal 1 binary64) (.f64 lambda1 lambda1)) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) (+.f64 (/.f64 (sin.f64 lambda2) lambda1) (/.f64 (cos.f64 lambda2) (*.f64 lambda1 lambda1)))))
(* (pow lambda1 2) (- (/ 1 (pow lambda1 2)) (+ (* -1/2 (cos lambda2)) (+ (/ (cos lambda2) (pow lambda1 2)) (/ (sin lambda2) lambda1)))))
(.f64 (.f64 lambda1 lambda1) (-.f64 (+.f64 (/.f64 #s(literal 1 binary64) (.f64 lambda1 lambda1)) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) (+.f64 (/.f64 (sin.f64 lambda2) lambda1) (/.f64 (cos.f64 lambda2) (*.f64 lambda1 lambda1)))))
(* 1/2 (* (pow lambda1 2) (cos lambda2)))
(.f64 (.f64 #s(literal 1/2 binary64) (*.f64 lambda1 lambda1)) (cos.f64 lambda2))
(* (pow lambda1 2) (- (* -1 (/ (sin lambda2) lambda1)) (* -1/2 (cos lambda2))))
(.f64 (.f64 lambda1 lambda1) (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 (sin.f64 lambda2) lambda1)) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))))
(* (pow lambda1 2) (- (* -1 (/ (- (* -1 (/ (- 1 (cos lambda2)) lambda1)) (* -1 (sin lambda2))) lambda1)) (* -1/2 (cos lambda2))))
(.f64 (.f64 lambda1 lambda1) (+.f64 (/.f64 (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)) lambda1)) (sin.f64 lambda2)) (-.f64 #s(literal 0 binary64) lambda1)) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))))
(* (pow lambda1 2) (- (* -1 (/ (- (* -1 (/ (- 1 (cos lambda2)) lambda1)) (* -1 (sin lambda2))) lambda1)) (* -1/2 (cos lambda2))))
(.f64 (.f64 lambda1 lambda1) (+.f64 (/.f64 (+.f64 (-.f64 #s(literal 0 binary64) (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)) lambda1)) (sin.f64 lambda2)) (-.f64 #s(literal 0 binary64) lambda1)) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))))
(+ 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 (cos (neg phi2))) (* 1/2 (* phi1 (sin (neg phi2))))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 phi1 (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) (cos.f64 phi2))))
(+ 1/2 (+ (* -1/2 (cos (neg phi2))) (* phi1 (+ (* 1/4 (* phi1 (cos (neg phi2)))) (* 1/2 (sin (neg phi2)))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi2))) (.f64 phi1 (+.f64 (neg.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 phi2))) (.f64 #s(literal 1/4 binary64) (*.f64 phi1 (cos.f64 phi2))))))
(+ 1/2 (+ (* -1/2 (cos (neg phi2))) (* phi1 (+ (* 1/2 (sin (neg phi2))) (* phi1 (+ (* -1/12 (* phi1 (sin (neg phi2)))) (* 1/4 (cos (neg phi2)))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi2))) (.f64 phi1 (+.f64 (neg.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 phi2))) (.f64 phi1 (+.f64 (.f64 #s(literal -1/12 binary64) (.f64 phi1 (-.f64 #s(literal 0 binary64) (sin.f64 phi2)))) (*.f64 #s(literal 1/4 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 (cos phi1)) (* -1/2 (* 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 (+ (* -1/2 (sin phi1)) (* 1/4 (* phi2 (cos phi1)))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 phi2 (+.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 phi1)) (.f64 #s(literal 1/4 binary64) (*.f64 phi2 (cos.f64 phi1))))))
(+ 1/2 (+ (* -1/2 (cos phi1)) (* phi2 (+ (* -1/2 (sin phi1)) (* phi2 (+ (* 1/12 (* phi2 (sin phi1))) (* 1/4 (cos phi1))))))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (.f64 phi2 (+.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 phi1)) (.f64 phi2 (+.f64 (.f64 (.f64 #s(literal 1/12 binary64) phi2) (sin.f64 phi1)) (*.f64 #s(literal 1/4 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/2 (* -1/2 (cos (neg lambda2))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))
(+ 1/2 (+ (* -1/2 (cos (neg lambda2))) (* 1/2 (* lambda1 (sin (neg lambda2))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))) (.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))))
(+ 1/2 (+ (* -1/2 (cos (neg lambda2))) (* lambda1 (+ (* 1/4 (* lambda1 (cos (neg lambda2)))) (* 1/2 (sin (neg lambda2)))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))) (.f64 lambda1 (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 lambda1 (cos.f64 lambda2))) (neg.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 lambda2))))))
(+ 1/2 (+ (* -1/2 (cos (neg lambda2))) (* lambda1 (+ (* 1/2 (sin (neg lambda2))) (* lambda1 (+ (* -1/12 (* lambda1 (sin (neg lambda2)))) (* 1/4 (cos (neg lambda2)))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))) (.f64 lambda1 (+.f64 (neg.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2))) (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal -1/12 binary64) lambda1) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))) (*.f64 #s(literal 1/4 binary64) (cos.f64 lambda2)))))))
(+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))
(+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))
(+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))
(+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))
(+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))
(+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))
(+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))
(+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))
(+ 1/2 (* -1/2 (cos lambda1)))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)))
(+ 1/2 (+ (* -1/2 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))))
(+ 1/2 (+ (* -1/2 (cos lambda1)) (* lambda2 (+ (* -1/2 (sin lambda1)) (* 1/4 (* lambda2 (cos lambda1)))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1))) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 lambda1)) (.f64 #s(literal 1/4 binary64) (*.f64 lambda2 (cos.f64 lambda1))))))
(+ 1/2 (+ (* -1/2 (cos lambda1)) (* lambda2 (+ (* -1/2 (sin lambda1)) (* lambda2 (+ (* 1/12 (* lambda2 (sin lambda1))) (* 1/4 (cos lambda1))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1))) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 lambda1)) (.f64 lambda2 (+.f64 (.f64 #s(literal 1/12 binary64) (.f64 lambda2 (sin.f64 lambda1))) (*.f64 #s(literal 1/4 binary64) (cos.f64 lambda1)))))))
(+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))
(+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))
(+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))
(+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))
(+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))
(+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))
(+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))
(+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))
(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 #s(literal -1/2 binary64) (*.f64 lambda1 (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)) (.f64 (*.f64 #s(literal 1/6 binary64) lambda1) (-.f64 #s(literal 0 binary64) (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 (.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (cos.f64 lambda1))) (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))))) (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))
(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)))

eval588.0ms (1.2%)

Compiler: Compiled 181388 to 6556 computations (96.4% saved)

prune817.0ms (1.6%)

Pruning

179 alts after pruning (179 fresh and 0 done)

	Pruned	Kept	Total
New	2074	89	2163
Fresh	37	90	127
Picked	5	0	5
Done	0	0	0
Total	2116	179	2295

Accuracy

79.5%

Counts

2295 → 179

Alt Table

Click to see full alt table

Status	Accuracy	Program
	55.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 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)))
	54.6%	(.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)))
	30.2%	(.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 #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))))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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 (/.f64 (sqrt.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (+.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (+.f64 (.f64 #s(literal 1/2 binary64) (-.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)))
	41.4%	(.f64 (atan2.f64 (/.f64 (sqrt.f64 (+.f64 #s(literal 1/8 binary64) (pow.f64 (.f64 (cos.f64 phi1) (+.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -1/2 binary64))) #s(literal 3 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/4 binary64) (.f64 (.f64 (cos.f64 phi1) (+.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -1/2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (+.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -1/2 binary64))) #s(literal 1/2 binary64)))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	33.7%	(.f64 (atan2.f64 (+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1))))))) (.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) (cos.f64 (-.f64 phi1 phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)))))))))) (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)))
	41.3%	(.f64 (atan2.f64 (.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (+.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -1/2 binary64)))) #s(literal 1/4 binary64)) (pow.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (+.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -1/2 binary64)))) #s(literal 1/4 binary64))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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.3%	(.f64 (atan2.f64 (.f64 (-.f64 #s(literal 0 binary64) lambda1) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (sin.f64 lambda2) lambda1)) (sqrt.f64 (/.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda2)))) (.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2))))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	4.4%	(.f64 (atan2.f64 (.f64 (.f64 #s(literal 1/2 binary64) lambda1) (sqrt.f64 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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.0%	(.f64 (atan2.f64 (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (sqrt.f64 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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.5%	(.f64 (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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)))
	54.7%	(.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)))
	32.9%	(.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 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.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.4%	(.f64 (atan2.f64 (sqrt.f64 (/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 phi1) (+.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (-.f64 (.f64 (cos.f64 phi1) (+.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -1/2 binary64))) #s(literal 1/2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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.4%	(.f64 (atan2.f64 (sqrt.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 1 binary64))))) (/.f64 (.f64 phi2 (+.f64 (sin.f64 #s(literal 0 binary64)) (sin.f64 (.f64 phi1 #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64)))) #s(literal 2 binary64)) (-.f64 (.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 1 binary64))))) (/.f64 (.f64 phi2 (+.f64 (sin.f64 #s(literal 0 binary64)) (sin.f64 (.f64 phi1 #s(literal 1 binary64))))) #s(literal 2 binary64))) (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 1 binary64))))) (/.f64 (.f64 phi2 (+.f64 (sin.f64 #s(literal 0 binary64)) (sin.f64 (.f64 phi1 #s(literal 1 binary64))))) #s(literal 2 binary64)))) (.f64 (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64)))) (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 1 binary64))))) (/.f64 (.f64 phi2 (+.f64 (sin.f64 #s(literal 0 binary64)) (sin.f64 (.f64 phi1 #s(literal 1 binary64))))) #s(literal 2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	54.6%	(.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)))
	41.4%	(.f64 (atan2.f64 (sqrt.f64 (-.f64 (/.f64 #s(literal 1/4 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (+.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -1/2 binary64))))) (/.f64 (pow.f64 (.f64 (cos.f64 phi1) (+.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (+.f64 (.f64 #s(literal 1/2 binary64) (-.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)))
	48.4%	(.f64 (atan2.f64 (sqrt.f64 (-.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)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.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.9%	(.f64 (atan2.f64 (sqrt.f64 (-.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 (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 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	39.5%	(.f64 (atan2.f64 (sqrt.f64 (-.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (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))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	39.5%	(.f64 (atan2.f64 (sqrt.f64 (-.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))))) (-.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 3 binary64))))) #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))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	43.6%	(.f64 (atan2.f64 (sqrt.f64 (-.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))) (/.f64 (pow.f64 (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (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))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.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.0%	(.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 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 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)))))) (.f64 R #s(literal 2 binary64)))
	38.4%	(.f64 (atan2.f64 (sqrt.f64 (-.f64 (+.f64 (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 1 binary64)))))) (/.f64 (.f64 phi2 (+.f64 (sin.f64 #s(literal 0 binary64)) (sin.f64 (.f64 phi1 #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
▶	61.6%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (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 (.f64 (cos.f64 phi1) (cos.f64 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)))
	61.4%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.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)))
	62.4%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	77.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 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.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.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 (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)))
	77.1%	(.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)))
	70.7%	(.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 #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))))))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	62.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)) (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 (-.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)))
	63.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 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)))
	73.7%	(.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 (/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64))) (.f64 (+.f64 (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (+.f64 (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))))) (-.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (+.f64 (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.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)))
	77.1%	(.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 (/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	75.7%	(.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 (-.f64 (/.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))) (/.f64 (pow.f64 (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	49.0%	(.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 (+.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))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.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.3%	(.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 (.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))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	62.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 (/.f64 (.f64 (.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 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) #s(literal 1 binary64))))) (.f64 R #s(literal 2 binary64)))
	56.0%	(.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 (+.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))))) (.f64 R #s(literal 2 binary64)))
	49.2%	(.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 (.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)))))) (*.f64 R #s(literal 2 binary64)))
	53.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) (.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 (.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 #s(literal 1/2 binary64) (.f64 (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)))))) (*.f64 R #s(literal 2 binary64)))
	70.5%	(.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 (/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))))) (-.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 3 binary64))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
▶	77.2%	(.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 (/.f64 #s(literal 1 binary64) (/.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	76.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 (-.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)))
	51.3%	(.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 (+.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 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	51.2%	(.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 (+.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 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	51.7%	(.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 (cos.f64 phi2) (.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) phi2)) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	60.4%	(.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 (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)))
	50.2%	(.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 (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)))
	51.8%	(.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)))
	77.1%	(.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) (-.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 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	58.6%	(.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)))
	50.1%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (+.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)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -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.8%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (+.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))))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	60.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 (fma.f64 (+.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))) #s(literal 1/2 binary64) (-.f64 #s(literal 0 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 (-.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)))
	54.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 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.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)))
	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 (-.f64 (/.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))) (/.f64 (pow.f64 (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (.f64 (.f64 (cos.f64 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)))
	60.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 (-.f64 (/.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))) (/.f64 (pow.f64 (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.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)))
	61.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 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (/.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 #s(literal -1/2 binary64) (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))))) #s(literal 3 binary64)) (pow.f64 (/.f64 (.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)))) (sqrt.f64 (+.f64 (.f64 (+.f64 #s(literal -1/2 binary64) (+.f64 #s(literal 1 binary64) (.f64 #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 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 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)))) (pow.f64 (/.f64 (.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 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	57.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 (.f64 (cos.f64 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 (.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)))))) #s(literal 1 binary64)))))) (.f64 R #s(literal 2 binary64)))
	62.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 (.f64 (cos.f64 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 (.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))))) #s(literal 1 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	50.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 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	50.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/2 binary64) (.f64 (cos.f64 phi2) #s(literal 1/2 binary64))) (.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 R #s(literal 2 binary64)))
	49.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/2 binary64) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))) (.f64 R #s(literal 2 binary64)))
	50.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 (-.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 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	48.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 (-.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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	42.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 (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.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.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.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 (+.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.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	50.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	45.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 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)))
	51.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 (+.f64 #s(literal 1 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)))
	50.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 #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)))
	51.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 (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)))
	48.0%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.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 (-.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)))
	46.3%	(.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 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.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.3%	(.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 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.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.3%	(.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 (-.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)))
	42.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 (.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)))
	54.6%	(.f64 (atan2.f64 (sqrt.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) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	54.7%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (/.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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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.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 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) 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)))
	54.7%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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.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) (+.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)))
	35.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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2))) (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 (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))))) (sin.f64 lambda2)))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	33.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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2))) (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 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	36.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 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2))) (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 (cos.f64 lambda2) (.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)))
	14.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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2))) (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 (cos.f64 lambda1) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))) (sin.f64 lambda1)))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	54.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 (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 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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.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) (+.f64 (cos.f64 phi2) (.f64 phi1 (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)))
	36.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 (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)))
	54.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 (.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)))
	55.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 (.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.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 (+.f64 (cos.f64 lambda2) (.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)))
	43.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 (.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)))
▶	32.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 lambda1) (+.f64 (.f64 lambda2 (sin.f64 lambda1)) #s(literal -1 binary64))) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	43.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 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.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 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)))
	20.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 0 binary64) (.f64 lambda1 lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 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)))
	20.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 lambda2 (-.f64 (.f64 lambda2 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/4 binary64) (.f64 lambda1 lambda1)))) lambda1)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 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)))
	40.3%	(.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)))
	39.3%	(.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)))
	50.9%	(.f64 (atan2.f64 (sqrt.f64 (+.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)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.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 (+.f64 #s(literal 1/2 binary64) (.f64 (.f64 phi2 #s(literal -1/2 binary64)) (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)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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.5%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.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 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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 (.f64 (.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #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 (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 (-.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)))
	47.2%	(.f64 (atan2.f64 (sqrt.f64 (+.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 (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) (-.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)))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.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 (+.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 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)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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 (.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 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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.0%	(.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) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (-.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))))))))) (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)))
	55.1%	(.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) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))))))))) (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 (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) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1))))))))) (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)))
	54.7%	(.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 (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)))
	38.4%	(.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 (+.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/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 lambda1 #s(literal 2 binary64)))))))))) (*.f64 #s(literal 2 binary64) R))
	55.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 (-.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))))) (-.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))))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	43.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 (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 #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)))
	38.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 (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 #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.5%	(.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 (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)))
	42.7%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi2))) (.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) (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)))
	40.4%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.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)))
	41.4%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (cos.f64 (-.f64 phi2 phi1))))))) (.f64 R #s(literal 2 binary64)))
	33.1%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.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)))
	54.6%	(.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))) (+.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) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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.3%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 phi1 phi1) (+.f64 #s(literal 1/4 binary64) (.f64 #s(literal -1/4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (-.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)))
	49.0%	(.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 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	54.7%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.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 (+.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)))
	47.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 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.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.4%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (+.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -1/2 binary64))) #s(literal 1/2 binary64))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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.9%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (.f64 phi1 phi1) (+.f64 #s(literal 1/4 binary64) (+.f64 (.f64 #s(literal -1/4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (.f64 phi1 phi1) (+.f64 (.f64 #s(literal 1/48 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -1/48 binary64)))))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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.9%	(.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 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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 (cos.f64 phi1) #s(literal 1/2 binary64)) (/.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.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 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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.2%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (-.f64 (-.f64 #s(literal 1 binary64) (.f64 lambda1 (sin.f64 lambda2))) (cos.f64 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 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))))) (.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 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))))) (.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 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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 (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 #s(literal 1 binary64) (/.f64 (+.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 0 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (+.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) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 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 (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 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	41.9%	(.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 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (-.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	41.4%	(.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 (/.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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 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 (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 (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)))
	28.7%	(.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 (cos.f64 lambda2) (.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.0%	(.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 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal -1 binary64))) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	34.6%	(.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 (cos.f64 lambda2) #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 #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 (cos.f64 lambda1) (+.f64 (.f64 lambda2 (sin.f64 lambda1)) #s(literal -1 binary64))) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	29.1%	(.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 (cos.f64 lambda1) #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 #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 #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 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	25.4%	(.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 lambda1))) (.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 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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.2%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (neg.f64 (.f64 phi1 (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))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	54.7%	(.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)))
	36.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) (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)))
	20.7%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 lambda1 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (.f64 #s(literal -1/2 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)))
	43.0%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 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)))
	35.9%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1))))))) (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)))
	41.4%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (+.f64 (.f64 #s(literal 1/2 binary64) (-.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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
	31.3%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))))) (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)))
	43.3%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (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.4%	(.f64 (atan2.f64 (sqrt.f64 (.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (+.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -1/2 binary64))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (+.f64 (.f64 #s(literal 1/2 binary64) (-.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)))
▶	28.5%	(.f64 (atan2.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.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)))
	18.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 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	54.7%	(.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)))
	41.4%	(.f64 (atan2.f64 (exp.f64 (.f64 (log.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (+.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -1/2 binary64))))) #s(literal 1/2 binary64))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 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)))))))))
	46.1%	(.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 #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)))))))))
	44.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (+.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))) #s(literal 1/2 binary64) (-.f64 #s(literal 0 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 (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)))))))))
▶	61.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (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)))))))
	34.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) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
	45.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (+.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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
	46.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 (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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
	41.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
	37.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #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)))))))))
	37.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (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) lambda1)) #s(literal 2 binary64)))))))))
	36.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #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)))))))))
	36.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.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)))))))))
	31.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (.f64 lambda2 #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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
	32.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (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)))))))))
	41.4%	(.f64 R (.f64 #s(literal 2 binary64) (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 (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)))))))))
	38.4%	(.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 (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)))))))))
	35.1%	(.f64 R (.f64 #s(literal 2 binary64) (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 (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)))))))))
	34.3%	(.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 #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)))))))))

Compiler

Compiled 29666 to 15888 computations (46.4% saved)

simplify256.0ms (0.5%)

Algorithm

1×	egg-herbie

Localize:

Found 20 expressions of interest:

New	Metric	Score	Program
✓	cost-diff	6720	(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))))
✓	cost-diff	6720	(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)))))
✓	cost-diff	13120	(atan2.f64 (sqrt.f64 (+.f64 (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 (.f64 (cos.f64 phi1) (cos.f64 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))))))
✓	cost-diff	13120	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (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 (.f64 (cos.f64 phi1) (cos.f64 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)))
✓	cost-diff	6400	(sqrt.f64 (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))))
✓	cost-diff	6400	(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 (/.f64 (-.f64 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)))))
✓	cost-diff	6400	(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 (/.f64 (-.f64 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))))))
✓	cost-diff	6400	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 (/.f64 (-.f64 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)))))))
✓	cost-diff	384	(+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.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-diff	384	(sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.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-diff	640	(atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(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) (+.f64 (.f64 lambda2 (sin.f64 lambda1)) #s(literal -1 binary64))) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)))))
✓	cost-diff	640	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(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) (+.f64 (.f64 lambda2 (sin.f64 lambda1)) #s(literal -1 binary64))) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
✓	cost-diff	384	(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.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-diff	384	(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.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-diff	384	(atan2.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.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)))))
✓	cost-diff	384	(.f64 (atan2.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.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)))
✓	cost-diff	13696	(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (/.f64 #s(literal 1 binary64) (/.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(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-diff	13696	(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (/.f64 #s(literal 1 binary64) (/.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(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-diff	13696	(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 (/.f64 #s(literal 1 binary64) (/.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(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-diff	13696	(.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 (/.f64 #s(literal 1 binary64) (/.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.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

3040×	`-lowering-.f32`
3040×	`-lowering-.f64`
2792×	`+-lowering-+.f64`
2792×	`+-lowering-+.f32`
1928×	`sum4-define`

Iterations

Useful iterations: 3 (0.0ms)

Iter	Nodes	Cost
0	114	2443
1	281	2297
2	732	2197
3	2307	2122
0	8448	2122

Stop Event

1×	iter limit
1×	node limit

Calls

Call 1

Inputs
(* (atan2 (sqrt (+ (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)))))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (/ 1 (/ (sin (* 1/2 (+ lambda1 lambda2))) (* (sin (* 1/2 (+ lambda1 lambda2))) (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))) (* (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)) (* (/ 1 (/ (sin (* 1/2 (+ lambda1 lambda2))) (* (sin (* 1/2 (+ lambda1 lambda2))) (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))) (* (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))) (* (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))) (* (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)
phi1
2
(cos (/ phi2 2))
(/ phi2 2)
phi2
(* (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)) (* (/ 1 (/ (sin (* 1/2 (+ lambda1 lambda2))) (* (sin (* 1/2 (+ lambda1 lambda2))) (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)) (* (/ 1 (/ (sin (* 1/2 (+ lambda1 lambda2))) (* (sin (* 1/2 (+ lambda1 lambda2))) (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)) (* (/ 1 (/ (sin (* 1/2 (+ lambda1 lambda2))) (* (sin (* 1/2 (+ lambda1 lambda2))) (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)) (* (/ 1 (/ (sin (* 1/2 (+ lambda1 lambda2))) (* (sin (* 1/2 (+ lambda1 lambda2))) (sin (/ (- lambda1 lambda2) 2))))) (sin (/ (- lambda1 lambda2) -2))))
(* (/ 1 (/ (sin (* 1/2 (+ lambda1 lambda2))) (* (sin (* 1/2 (+ lambda1 lambda2))) (sin (/ (- lambda1 lambda2) 2))))) (sin (/ (- lambda1 lambda2) -2)))
(/ 1 (/ (sin (* 1/2 (+ lambda1 lambda2))) (* (sin (* 1/2 (+ lambda1 lambda2))) (sin (/ (- lambda1 lambda2) 2)))))
(/ (sin (* 1/2 (+ lambda1 lambda2))) (* (sin (* 1/2 (+ lambda1 lambda2))) (sin (/ (- lambda1 lambda2) 2))))
(sin (* 1/2 (+ lambda1 lambda2)))
(* 1/2 (+ lambda1 lambda2))
1/2
(+ lambda1 lambda2)
(* (sin (* 1/2 (+ lambda1 lambda2))) (sin (/ (- lambda1 lambda2) 2)))
(sin (/ (- lambda1 lambda2) -2))
(/ (- lambda1 lambda2) -2)
-2
(* R 2)
R
(* (atan2 (sqrt (* 1/2 (- 1 (cos (- lambda1 lambda2))))) (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 (cos (- lambda1 lambda2))))) (sqrt (+ (+ 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (+ (cos (* (- lambda1 lambda2) 1)) -1) (* (cos phi1) (cos phi2))) 2))))
(sqrt (* 1/2 (- 1 (cos (- lambda1 lambda2)))))
(* 1/2 (- 1 (cos (- lambda1 lambda2))))
1/2
(- 1 (cos (- lambda1 lambda2)))
1
(cos (- lambda1 lambda2))
(- 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)))))
(* 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 (* (- 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)
-1
(* (cos phi1) (cos phi2))
(cos phi1)
(cos phi2)
(* 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 (sin lambda1)) -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 (sin lambda1)) -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 (sin lambda1)) -1)) (* (cos phi1) (cos phi2))) 2)))
(+ (+ 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) -1)) (* (cos phi1) (cos phi2))) 2))
(+ 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2)))))
(/ (* (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) -1)) (* (cos phi1) (cos phi2))) 2)
(* (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) -1)) (* (cos phi1) (cos phi2)))
(+ (cos lambda1) (+ (* lambda2 (sin lambda1)) -1))
(cos lambda1)
(+ (* lambda2 (sin lambda1)) -1)
(* lambda2 (sin lambda1))
(sin lambda1)
-1
(* R 2)
R
(* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (cos (/ (- phi1 phi2) 2)) (cos (/ (- phi1 phi2) 2))) (/ (* (+ (cos (* (- lambda1 lambda2) 1)) -1) (* (cos phi1) (cos phi2))) 2))))))
R
(* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (cos (/ (- phi1 phi2) 2)) (cos (/ (- phi1 phi2) 2))) (/ (* (+ (cos (* (- lambda1 lambda2) 1)) -1) (* (cos phi1) (cos phi2))) 2)))))
2
(atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (cos (/ (- phi1 phi2) 2)) (cos (/ (- phi1 phi2) 2))) (/ (* (+ (cos (* (- lambda1 lambda2) 1)) -1) (* (cos phi1) (cos phi2))) 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 (+ (* (cos (/ (- phi1 phi2) 2)) (cos (/ (- phi1 phi2) 2))) (/ (* (+ (cos (* (- lambda1 lambda2) 1)) -1) (* (cos phi1) (cos phi2))) 2)))
(+ (* (cos (/ (- phi1 phi2) 2)) (cos (/ (- phi1 phi2) 2))) (/ (* (+ (cos (* (- lambda1 lambda2) 1)) -1) (* (cos phi1) (cos phi2))) 2))
(cos (/ (- 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)
1
-1
(* (atan2 (sqrt (+ (pow (+ (* (+ (sin (/ (- phi1 phi2) 2)) (sin (* 1/2 (+ phi1 phi2)))) 1/2) (- 0 (* (cos (/ phi1 2)) (sin (/ phi2 2))))) 2) (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt (+ (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) -2))) (sin (/ (- lambda1 lambda2) 2))) (neg (- (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) 1))))) (* R 2))
(atan2 (sqrt (+ (pow (+ (* (+ (sin (/ (- phi1 phi2) 2)) (sin (* 1/2 (+ phi1 phi2)))) 1/2) (- 0 (* (cos (/ phi1 2)) (sin (/ phi2 2))))) 2) (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt (+ (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) -2))) (sin (/ (- lambda1 lambda2) 2))) (neg (- (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) 1)))))
(sqrt (+ (pow (+ (* (+ (sin (/ (- phi1 phi2) 2)) (sin (* 1/2 (+ phi1 phi2)))) 1/2) (- 0 (* (cos (/ phi1 2)) (sin (/ phi2 2))))) 2) (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2))))))
(+ (pow (+ (* (+ (sin (/ (- phi1 phi2) 2)) (sin (* 1/2 (+ phi1 phi2)))) 1/2) (- 0 (* (cos (/ phi1 2)) (sin (/ phi2 2))))) 2) (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2)))))
(pow (+ (* (+ (sin (/ (- phi1 phi2) 2)) (sin (* 1/2 (+ phi1 phi2)))) 1/2) (- 0 (* (cos (/ phi1 2)) (sin (/ phi2 2))))) 2)
(+ (* (+ (sin (/ (- phi1 phi2) 2)) (sin (* 1/2 (+ phi1 phi2)))) 1/2) (- 0 (* (cos (/ phi1 2)) (sin (/ phi2 2)))))
(+ (sin (/ (- phi1 phi2) 2)) (sin (* 1/2 (+ phi1 phi2))))
(sin (/ (- phi1 phi2) 2))
(/ (- phi1 phi2) 2)
(- phi1 phi2)
phi1
phi2
2
(sin (* 1/2 (+ phi1 phi2)))
(* 1/2 (+ phi1 phi2))
1/2
(+ phi1 phi2)
(- 0 (* (cos (/ phi1 2)) (sin (/ phi2 2))))
0
(* (cos (/ phi1 2)) (sin (/ phi2 2)))
(cos (/ phi1 2))
(/ phi1 2)
(sin (/ phi2 2))
(/ 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 (+ (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) -2))) (sin (/ (- lambda1 lambda2) 2))) (neg (- (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) 1))))
(+ (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) -2))) (sin (/ (- lambda1 lambda2) 2))) (neg (- (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) 1)))
(* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) -2)))
(sin (/ (- lambda1 lambda2) -2))
(/ (- lambda1 lambda2) -2)
-2
(neg (- (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) 1))
(- (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) 1)
(- 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))
1
(* R 2)
R

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

localize1.6s (3.3%)

Localize:

Found 20 expressions of interest:

New	Metric	Score	Program
✓	accuracy	81.1%	(sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
✓	accuracy	80.7%	(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
✓	accuracy	80.7%	(cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))
✓	accuracy	74.3%	(+.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
✓	accuracy	86.9%	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
✓	accuracy	84.5%	(+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64))
✓	accuracy	81.2%	(cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
✓	accuracy	80.7%	(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
✓	accuracy	84.5%	(-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))
✓	accuracy	84.0%	(-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))
✓	accuracy	80.7%	(cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))
✓	accuracy	74.4%	(+.f64 (cos.f64 lambda1) (+.f64 (*.f64 lambda2 (sin.f64 lambda1)) #s(literal -1 binary64)))
✓	accuracy	87.0%	(cos.f64 (-.f64 lambda1 lambda2))
✓	accuracy	84.5%	(-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))
✓	accuracy	84.5%	(+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64))
✓	accuracy	80.7%	(cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))
✓	accuracy	93.8%	(/.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))) (.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
✓	accuracy	86.9%	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))
✓	accuracy	86.9%	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
✓	accuracy	86.8%	(sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))

Results

956.0ms	187×	1	valid
127.0ms	15×	2	valid
65.0ms	50×	0	invalid
9.0ms	1×	3	valid
8.0ms	1×	2	invalid
7.0ms	2×	0	valid

Compiler

Compiled 2554 to 112 computations (95.6% saved)

Precisions

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

ival-mult: 178.0ms (20.6% of total)

ival-cos: 176.0ms (20.4% of total)

ival-sin: 158.0ms (18.3% of total)

backward-pass: 77.0ms (8.9% of total)

ival-sqrt: 57.0ms (6.6% of total)

ival-div: 55.0ms (6.4% of total)

ival-add: 52.0ms (6% of total)

ival-pow: 31.0ms (3.6% of total)

compiled-spec: 27.0ms (3.1% of total)

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

ival-sub: 21.0ms (2.4% of total)

ival-neg: 2.0ms (0.2% of total)

const: 2.0ms (0.2% of total)

series365.0ms (0.7%)

Counts

35 → 1380

Calls

Call 1

Inputs
#<alt (* (atan2 (sqrt (+ (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)))))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (/ 1 (/ (sin (* 1/2 (+ lambda1 lambda2))) (* (sin (* 1/2 (+ lambda1 lambda2))) (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))) (* (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)) (* (/ 1 (/ (sin (* 1/2 (+ lambda1 lambda2))) (* (sin (* 1/2 (+ lambda1 lambda2))) (sin (/ (- lambda1 lambda2) 2))))) (sin (/ (- lambda1 lambda2) -2)))) (pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2)))))>
#<alt (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (/ 1 (/ (sin (* 1/2 (+ lambda1 lambda2))) (* (sin (* 1/2 (+ lambda1 lambda2))) (sin (/ (- lambda1 lambda2) 2))))) (sin (/ (- lambda1 lambda2) -2)))) (pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2))))>
#<alt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (/ 1 (/ (sin (* 1/2 (+ lambda1 lambda2))) (* (sin (* 1/2 (+ lambda1 lambda2))) (sin (/ (- lambda1 lambda2) 2))))) (sin (/ (- lambda1 lambda2) -2)))) (pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2)))>
#<alt (* (atan2 (sqrt (* 1/2 (- 1 (cos (- lambda1 lambda2))))) (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 (cos (- lambda1 lambda2))))) (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 (* (- lambda1 lambda2) 1)) -1) (* (cos phi1) (cos phi2))) 2)))>
#<alt (+ (+ 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (+ (cos (* (- lambda1 lambda2) 1)) -1) (* (cos phi1) (cos phi2))) 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 (sin lambda1)) -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 (sin lambda1)) -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 (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (cos (/ (- phi1 phi2) 2)) (cos (/ (- phi1 phi2) 2))) (/ (* (+ (cos (* (- lambda1 lambda2) 1)) -1) (* (cos phi1) (cos phi2))) 2))))))>
#<alt (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (cos (/ (- phi1 phi2) 2)) (cos (/ (- phi1 phi2) 2))) (/ (* (+ (cos (* (- lambda1 lambda2) 1)) -1) (* (cos phi1) (cos phi2))) 2)))))>
#<alt (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (cos (/ (- phi1 phi2) 2)) (cos (/ (- phi1 phi2) 2))) (/ (* (+ (cos (* (- lambda1 lambda2) 1)) -1) (* (cos phi1) (cos phi2))) 2))))>
#<alt (sqrt (+ (* (cos (/ (- phi1 phi2) 2)) (cos (/ (- phi1 phi2) 2))) (/ (* (+ (cos (* (- lambda1 lambda2) 1)) -1) (* (cos phi1) (cos phi2))) 2)))>
#<alt (* (atan2 (sqrt (+ (pow (+ (* (+ (sin (/ (- phi1 phi2) 2)) (sin (* 1/2 (+ phi1 phi2)))) 1/2) (- 0 (* (cos (/ phi1 2)) (sin (/ phi2 2))))) 2) (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt (+ (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) -2))) (sin (/ (- lambda1 lambda2) 2))) (neg (- (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) 1))))) (* R 2))>
#<alt (atan2 (sqrt (+ (pow (+ (* (+ (sin (/ (- phi1 phi2) 2)) (sin (* 1/2 (+ phi1 phi2)))) 1/2) (- 0 (* (cos (/ phi1 2)) (sin (/ phi2 2))))) 2) (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt (+ (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) -2))) (sin (/ (- lambda1 lambda2) 2))) (neg (- (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) 1)))))>
#<alt (sqrt (+ (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) -2))) (sin (/ (- lambda1 lambda2) 2))) (neg (- (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) 1))))>
#<alt (+ (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) -2))) (sin (/ (- lambda1 lambda2) 2))) (neg (- (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) 1)))>
#<alt (sin (* 1/2 (+ lambda1 lambda2)))>
#<alt (sin (/ (- lambda1 lambda2) 2))>
#<alt (sin (/ (- lambda1 lambda2) -2))>
#<alt (/ (sin (* 1/2 (+ lambda1 lambda2))) (* (sin (* 1/2 (+ lambda1 lambda2))) (sin (/ (- lambda1 lambda2) 2))))>
#<alt (cos (* 2 (/ (- phi1 phi2) 2)))>
#<alt (+ (cos (* (- lambda1 lambda2) 1)) -1)>
#<alt (- 1 (cos (- lambda1 lambda2)))>
#<alt (cos (- lambda1 lambda2))>
#<alt (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) -1))>
#<alt (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2)))))>
#<alt (- 1 (cos (* (- lambda1 lambda2) 1)))>
#<alt (sin (/ (- phi1 phi2) 2))>
#<alt (cos (/ (- phi1 phi2) 2))>
#<alt (+ (sin (/ (- phi1 phi2) 2)) (sin (* 1/2 (+ phi1 phi2))))>
#<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 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2)))>
#<alt (+ (sqrt (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2))) (* 1/2 (* (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2)))))))>
#<alt (+ (sqrt (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* 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) (pow (sin (* 1/2 phi2)) 2)) (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2)))) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2)))))) (* 1/2 (* (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2)))))))))>
#<alt (+ (sqrt (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2)))))) (* phi1 (+ (* -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) (* (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) (pow (sin (* 1/2 phi2)) 2)) (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2)))) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))))) (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2)))))) (* 1/2 (* (- (* -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) (pow (sin (* 1/2 phi2)) 2)) (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2)))) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2)))))))))))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))>
#<alt (+ (sqrt (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))) (* 1/2 (* (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))))>
#<alt (+ (sqrt (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* 1/2 (* (* 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) (pow (sin (* 1/2 phi1)) 2)) (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))))))>
#<alt (+ (sqrt (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* 1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))) (* phi2 (+ (* -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 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (- (* -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) (pow (sin (* 1/2 phi1)) 2)) (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))))))))>
#<alt (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 (- (+ 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 (+ (sqrt (- (+ 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/2 (* (* 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)))))))) (sqrt (/ 1 (- (+ 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 (+ (sqrt (- (+ 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))) (* lambda1 (+ (* 1/2 (* (* 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))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))) 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)))))) (sqrt (/ 1 (- (+ 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/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (sqrt (/ 1 (- (+ 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 (+ (sqrt (- (+ 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))) (* lambda1 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (sqrt (/ 1 (- (+ 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)))))) (* lambda1 (+ (* 1/2 (* (* 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))))))))) (* 1/2 (/ (* (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) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))) 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 (* (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)))))) (sqrt (/ 1 (- (+ 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/2 (* (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))) 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))))) (sqrt (/ 1 (- (+ 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 (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 (- (+ 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 (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 (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 (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 (sqrt (- (+ 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 (+ (sqrt (- (+ 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/2 (* (* 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)))))))) (sqrt (/ 1 (- (+ 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 (+ (sqrt (- (+ 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))) (* lambda2 (+ (* 1/2 (* (* 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))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))) 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)))))) (sqrt (/ 1 (- (+ 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/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (sqrt (/ 1 (- (+ 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 (+ (sqrt (- (+ 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))) (* lambda2 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (sqrt (/ 1 (- (+ 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)))))) (* lambda2 (+ (* 1/2 (* (* 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))))))))) (* 1/2 (/ (* (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) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))) 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 (* (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)))))) (sqrt (/ 1 (- (+ 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/2 (* (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))) 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))))) (sqrt (/ 1 (- (+ 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 (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (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 (- (+ 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 (- (+ 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 (- (+ 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 (- (+ 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 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 (* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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) (sqrt (- 1 (cos (neg (+ lambda2 (* -1 lambda1))))))) (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) (sqrt (- 1 (cos (neg (+ lambda2 (* -1 lambda1))))))) (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) (sqrt (- 1 (cos (neg (+ lambda2 (* -1 lambda1))))))) (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) (sqrt (- 1 (cos (neg (+ lambda2 (* -1 lambda1))))))) (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) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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) (sqrt (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (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) (sqrt (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (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) (sqrt (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (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) (sqrt (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (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) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (neg (+ lambda2 (* -1 lambda1))))))) (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) (sqrt (- 1 (cos (neg (+ lambda2 (* -1 lambda1))))))) (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) (sqrt (- 1 (cos (neg (+ lambda2 (* -1 lambda1))))))) (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) (sqrt (- 1 (cos (neg (+ lambda2 (* -1 lambda1))))))) (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) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))>
#<alt (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))>
#<alt (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))>
#<alt (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))>
#<alt (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))>
#<alt (+ (sqrt (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))) (* -1/4 (* (* phi1 (sin (neg phi2))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (+ (sqrt (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))) (* phi1 (+ (* -1/4 (* (sin (neg phi2)) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))) (* 1/2 (* (* phi1 (- (+ (* -1/4 (cos (neg phi2))) (* -1/4 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))))>
#<alt (+ (sqrt (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))) (* phi1 (+ (* -1/4 (* (sin (neg phi2)) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))) (- (+ (* -1/4 (cos (neg phi2))) (* -1/4 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))))) (* 1/2 (* (* phi1 (- (* 1/12 (sin (neg phi2))) (* -1/4 (/ (* (sin (neg phi2)) (- (+ (* -1/4 (cos (neg phi2))) (* -1/4 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))) (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))))))>
#<alt (+ (sqrt (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))))) (* 1/4 (* (* phi2 (sin phi1)) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (+ (sqrt (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))))) (* phi2 (+ (* 1/4 (* (sin phi1) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))))))))) (* 1/2 (* (* phi2 (- (+ (* -1/4 (cos phi1)) (* -1/4 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* 1/16 (/ (pow (sin phi1) 2) (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))))))))))))>
#<alt (+ (sqrt (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))))) (* phi2 (+ (* 1/4 (* (sin phi1) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))))))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))))))) (- (+ (* -1/4 (cos phi1)) (* -1/4 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* 1/16 (/ (pow (sin phi1) 2) (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))))))))) (* 1/2 (* (* phi2 (- (* -1/12 (sin phi1)) (* 1/4 (/ (* (sin phi1) (- (+ (* -1/4 (cos phi1)) (* -1/4 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* 1/16 (/ (pow (sin phi1) 2) (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))))))))) (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))))))))))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))))))>
#<alt (+ (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))))) (* -1/4 (* (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))))))))))>
#<alt (+ (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))))) (* lambda1 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))))))))) (* 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 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))))))))))))>
#<alt (+ (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))))) (* lambda1 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))))))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))))))) (- (* -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 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))))))))) (* 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 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))))))))))) (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))))))))))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))))))>
#<alt (+ (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))))) (* 1/4 (* (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))))))))))>
#<alt (+ (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))))) (* lambda2 (+ (* 1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda1))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))))))))) (* 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 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))))))))))))>
#<alt (+ (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))))) (* lambda2 (+ (* 1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda1))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))))))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))))))) (- (* -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 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))))))))) (* 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 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))))))))))) (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))))))))))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))>
#<alt (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 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))))))>
#<alt (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 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))>
#<alt (+ 1/2 (+ (* -1/2 (* phi1 (sin (neg phi2)))) (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (+ (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (* phi1 (+ (* -1/2 (sin (neg phi2))) (* phi1 (+ (* -1/4 (cos (neg phi2))) (* -1/4 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (+ (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (* phi1 (+ (* -1/2 (sin (neg phi2))) (* phi1 (+ (* -1/4 (cos (neg phi2))) (+ (* -1/4 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (* 1/12 (* phi1 (sin (neg phi2))))))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))))>
#<alt (+ 1/2 (+ (* 1/2 (cos phi1)) (+ (* 1/2 (* phi2 (sin phi1))) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos phi1)) (+ (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (* phi2 (+ (* 1/2 (sin phi1)) (* phi2 (+ (* -1/4 (cos phi1)) (* -1/4 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos phi1)) (+ (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (* phi2 (+ (* 1/2 (sin phi1)) (* phi2 (+ (* -1/4 (cos phi1)) (+ (* -1/4 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (* -1/12 (* phi2 (sin phi1)))))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))))>
#<alt (+ 1/2 (+ (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/4 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/12 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (+ (* 1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))) (* lambda2 (+ (* -1/4 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* 1/2 (* (cos phi1) (* (cos phi2) (sin lambda1)))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))) (* lambda2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* lambda2 (+ (* -1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/12 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))>
#<alt (+ 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin lambda1))) 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 (sin lambda1))) 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 (sin lambda1))) 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 (sin lambda1))) 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin lambda1))) 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 (sin lambda1))) 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 (sin lambda1))) 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 (sin lambda1))) 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 lambda1) (* lambda2 (sin 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 lambda1) (* lambda2 (sin 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 lambda1) (* lambda2 (sin 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 lambda1) (* lambda2 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin lambda1))) 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) (* lambda2 (sin lambda1))) 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) (* lambda2 (sin lambda1))) 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) (* lambda2 (sin lambda1))) 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) (* lambda2 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin lambda1))) 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 (sin lambda1))) 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 (sin lambda1))) 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 (sin lambda1))) 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin lambda1))) 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 (sin lambda1))) 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 (sin lambda1))) 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 (sin lambda1))) 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 lambda1) (* lambda2 (sin 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 lambda1) (* lambda2 (sin 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 lambda1) (* lambda2 (sin 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 lambda1) (* lambda2 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin lambda1))) 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) (* lambda2 (sin lambda1))) 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) (* lambda2 (sin lambda1))) 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) (* lambda2 (sin lambda1))) 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) (* lambda2 (sin lambda1))) 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 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* -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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* -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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* -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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* -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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* -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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* -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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* -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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* -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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* -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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* -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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* -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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* -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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2))))>
#<alt (sqrt (+ (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* -1/2 phi2)) 2)))>
#<alt (+ (sqrt (+ (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* -1/2 phi2)) 2))) (* -1/2 (* (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (sqrt (/ 1 (+ (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* -1/2 phi2)) 2)))))))>
#<alt (+ (sqrt (+ (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* -1/2 phi2)) 2))) (* phi1 (+ (* -1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* -1/2 phi2)) 2)))))) (* 1/2 (* (* phi1 (- (+ (* -1/4 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (+ (* -1/4 (pow (cos (* -1/2 phi2)) 2)) (* 1/4 (pow (sin (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* -1/2 phi2)) 2)))))))))>
#<alt (+ (sqrt (+ (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* -1/2 phi2)) 2))) (* phi1 (+ (* -1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* -1/2 phi2)) 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* -1/2 phi2)) 2)))) (- (+ (* -1/4 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (+ (* -1/4 (pow (cos (* -1/2 phi2)) 2)) (* 1/4 (pow (sin (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* -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/4 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (+ (* -1/4 (pow (cos (* -1/2 phi2)) 2)) (* 1/4 (pow (sin (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* -1/2 phi2)) 2))))))) (+ (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* -1/2 phi2)) 2)))))))))))>
#<alt (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* -1/2 (+ phi2 (* -1 phi1)))) 2)))>
#<alt (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* -1/2 (+ phi2 (* -1 phi1)))) 2)))>
#<alt (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* -1/2 (+ phi2 (* -1 phi1)))) 2)))>
#<alt (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* -1/2 (+ phi2 (* -1 phi1)))) 2)))>
#<alt (sqrt (+ (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* 1/2 phi1)) 2)))>
#<alt (+ (sqrt (+ (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* 1/2 phi1)) 2))) (* 1/2 (* (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (sqrt (/ 1 (+ (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* 1/2 phi1)) 2)))))))>
#<alt (+ (sqrt (+ (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* 1/2 phi1)) 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ (* -1/4 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* 1/2 phi1)) 2)))))) (* 1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* 1/2 phi1)) 2)))))))))>
#<alt (+ (sqrt (+ (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* 1/2 phi1)) 2))) (* phi2 (+ (* 1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* 1/2 phi1)) 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* 1/2 phi1)) 2)))) (- (+ (* -1/4 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* 1/2 phi1)) 2))))))) (* 1/2 (* (* phi2 (- (+ (* -1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* -1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (* 1/2 (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (- (+ (* -1/4 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* 1/2 phi1)) 2))))))) (+ (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* 1/2 phi1)) 2)))))))))))>
#<alt (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (+ phi1 (* -1 phi2)))) 2)))>
#<alt (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (+ phi1 (* -1 phi2)))) 2)))>
#<alt (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (+ phi1 (* -1 phi2)))) 2)))>
#<alt (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (+ phi1 (* -1 phi2)))) 2)))>
#<alt (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))>
#<alt (+ (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2))) (* -1/4 (* (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (sqrt (/ 1 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (+ (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))) (sqrt (/ 1 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))) (* 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 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))))))>
#<alt (+ (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))) (sqrt (/ 1 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 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 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2))))))) (* 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 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))))) (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))))))))>
#<alt (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))>
#<alt (+ (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2))) (* 1/4 (* (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (sqrt (/ 1 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))))>
#<alt (+ (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* 1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda1))) (sqrt (/ 1 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))) (* 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 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))))))>
#<alt (+ (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* 1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda1))) (sqrt (/ 1 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 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 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2))))))) (* 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 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))))) (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))))))))>
#<alt (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))>
#<alt (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* -1/2 (+ phi2 (* -1 phi1)))) (sin (* 1/2 (- phi2 (* -1 phi1)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* -1/2 (+ phi2 (* -1 phi1)))) (sin (* 1/2 (- phi2 (* -1 phi1)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* -1/2 (+ phi2 (* -1 phi1)))) (sin (* 1/2 (- phi2 (* -1 phi1)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* -1/2 (+ phi2 (* -1 phi1)))) (sin (* 1/2 (- phi2 (* -1 phi1)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 (* -1 phi2)))) (sin (* 1/2 (- phi1 (* -1 phi2)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 (* -1 phi2)))) (sin (* 1/2 (- phi1 (* -1 phi2)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 (* -1 phi2)))) (sin (* 1/2 (- phi1 (* -1 phi2)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 (* -1 phi2)))) (sin (* 1/2 (- phi1 (* -1 phi2)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* -1/2 (+ phi2 (* -1 phi1)))) (sin (* 1/2 (- phi2 (* -1 phi1)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* -1/2 (+ phi2 (* -1 phi1)))) (sin (* 1/2 (- phi2 (* -1 phi1)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* -1/2 (+ phi2 (* -1 phi1)))) (sin (* 1/2 (- phi2 (* -1 phi1)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* -1/2 (+ phi2 (* -1 phi1)))) (sin (* 1/2 (- phi2 (* -1 phi1)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 (* -1 phi2)))) (sin (* 1/2 (- phi1 (* -1 phi2)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 (* -1 phi2)))) (sin (* 1/2 (- phi1 (* -1 phi2)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 (* -1 phi2)))) (sin (* 1/2 (- phi1 (* -1 phi2)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 (* -1 phi2)))) (sin (* 1/2 (- phi1 (* -1 phi2)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))))))>
#<alt (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))>
#<alt (+ (sqrt (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))) (* -1/4 (* (* phi1 (sin (neg phi2))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<alt (+ (sqrt (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))) (* phi1 (+ (* -1/4 (* (sin (neg phi2)) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))) (* 1/2 (* (* phi1 (- (+ (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (* -1/4 (cos (neg phi2)))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))))>
#<alt (+ (sqrt (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))) (* phi1 (+ (* -1/4 (* (sin (neg phi2)) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))) (- (+ (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (* -1/4 (cos (neg phi2)))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))))) (* 1/2 (* (* phi1 (- (* 1/12 (sin (neg phi2))) (* -1/4 (/ (* (sin (neg phi2)) (- (+ (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (* -1/4 (cos (neg phi2)))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))) (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))>
#<alt (+ (sqrt (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))) (* 1/4 (* (* phi2 (sin phi1)) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))>
#<alt (+ (sqrt (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))) (* phi2 (+ (* 1/4 (* (sin phi1) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))) (* 1/2 (* (* phi2 (- (+ (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (* -1/4 (cos phi1))) (* 1/16 (/ (pow (sin phi1) 2) (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))))>
#<alt (+ (sqrt (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))) (* phi2 (+ (* 1/4 (* (sin phi1) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))) (- (+ (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (* -1/4 (cos phi1))) (* 1/16 (/ (pow (sin phi1) 2) (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))))) (* 1/2 (* (* phi2 (- (* -1/12 (sin phi1)) (* 1/4 (/ (* (sin phi1) (- (+ (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (* -1/4 (cos phi1))) (* 1/16 (/ (pow (sin phi1) 2) (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))) (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))>
#<alt (+ (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (* 1/2 (* (* 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)))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))))))>
#<alt (+ (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (* lambda1 (+ (* 1/2 (* (* 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))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))) 2))) (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))))))))>
#<alt (+ (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (* lambda1 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -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))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))) 2))) (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))))))) (* 1/2 (* (* 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))))))))) (* 1/2 (/ (* (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) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))) 2))) (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))))))) (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))))))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1))))))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1))))))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1))))))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1))))))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))>
#<alt (+ (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* 1/2 (* (* 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)))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))))))>
#<alt (+ (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* lambda2 (+ (* 1/2 (* (* 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))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))) 2))) (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))))))))>
#<alt (+ (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* lambda2 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -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))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))) 2))) (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))))))) (* 1/2 (* (* 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))))))))) (* 1/2 (/ (* (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) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))) 2))) (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))))))) (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))))))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2))))))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2))))))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2))))))))))>
#<alt (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2))))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))>
#<alt (+ 1/2 (+ (* -1/2 (* phi1 (sin (neg phi2)))) (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (+ (* phi1 (+ (* -1/2 (sin (neg phi2))) (* phi1 (+ (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (* -1/4 (cos (neg phi2))))))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (+ (* phi1 (+ (* -1/2 (sin (neg phi2))) (* phi1 (+ (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (cos (neg phi2))) (* 1/12 (* phi1 (sin (neg phi2))))))))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos phi1)) (+ (* 1/2 (* phi2 (sin phi1))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos phi1)) (+ (* phi2 (+ (* 1/2 (sin phi1)) (* phi2 (+ (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (* -1/4 (cos phi1)))))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos phi1)) (+ (* phi2 (+ (* 1/2 (sin phi1)) (* phi2 (+ (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (cos phi1)) (* -1/12 (* phi2 (sin phi1)))))))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (+ (* 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))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (+ (* 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))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (+ (* 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))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (+ (* 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))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (+ (* 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))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (+ (* 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))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))))>
#<alt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (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/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 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 (sin (* -1/2 lambda2)))>
#<alt (+ (* -1/2 (/ (* lambda1 (cos (* -1/2 lambda2))) (pow (sin (* -1/2 lambda2)) 2))) (/ 1 (sin (* -1/2 lambda2))))>
#<alt (+ (* lambda1 (- (* lambda1 (- (* 1/8 (/ 1 (sin (* -1/2 lambda2)))) (* -1/4 (/ (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 3))))) (* 1/2 (/ (cos (* -1/2 lambda2)) (pow (sin (* -1/2 lambda2)) 2))))) (/ 1 (sin (* -1/2 lambda2))))>
#<alt (+ (* lambda1 (- (* lambda1 (- (+ (* -1 (* lambda1 (+ (* -1/48 (/ (cos (* -1/2 lambda2)) (pow (sin (* -1/2 lambda2)) 2))) (+ (* 1/16 (/ (cos (* -1/2 lambda2)) (pow (sin (* -1/2 lambda2)) 2))) (* 1/2 (/ (* (cos (* -1/2 lambda2)) (- (* 1/8 (/ 1 (sin (* -1/2 lambda2)))) (* -1/4 (/ (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 3))))) (sin (* -1/2 lambda2)))))))) (* 1/8 (/ 1 (sin (* -1/2 lambda2))))) (* -1/4 (/ (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 3))))) (* 1/2 (/ (cos (* -1/2 lambda2)) (pow (sin (* -1/2 lambda2)) 2))))) (/ 1 (sin (* -1/2 lambda2))))>
#<alt (/ 1 (sin (* 1/2 (- lambda1 lambda2))))>
#<alt (/ 1 (sin (* 1/2 (- lambda1 lambda2))))>
#<alt (/ 1 (sin (* 1/2 (- lambda1 lambda2))))>
#<alt (/ 1 (sin (* 1/2 (- lambda1 lambda2))))>
#<alt (/ 1 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))))>
#<alt (/ 1 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))))>
#<alt (/ 1 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))))>
#<alt (/ 1 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))))>
#<alt (/ 1 (sin (* 1/2 lambda1)))>
#<alt (+ (* 1/2 (/ (* lambda2 (cos (* 1/2 lambda1))) (pow (sin (* 1/2 lambda1)) 2))) (/ 1 (sin (* 1/2 lambda1))))>
#<alt (+ (* lambda2 (- (* lambda2 (- (* 1/8 (/ 1 (sin (* 1/2 lambda1)))) (* -1/4 (/ (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 3))))) (* -1/2 (/ (cos (* 1/2 lambda1)) (pow (sin (* 1/2 lambda1)) 2))))) (/ 1 (sin (* 1/2 lambda1))))>
#<alt (+ (* lambda2 (- (* lambda2 (- (+ (* -1 (* lambda2 (+ (* -1/2 (/ (* (cos (* 1/2 lambda1)) (- (* 1/8 (/ 1 (sin (* 1/2 lambda1)))) (* -1/4 (/ (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 3))))) (sin (* 1/2 lambda1)))) (+ (* -1/16 (/ (cos (* 1/2 lambda1)) (pow (sin (* 1/2 lambda1)) 2))) (* 1/48 (/ (cos (* 1/2 lambda1)) (pow (sin (* 1/2 lambda1)) 2))))))) (* 1/8 (/ 1 (sin (* 1/2 lambda1))))) (* -1/4 (/ (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 3))))) (* -1/2 (/ (cos (* 1/2 lambda1)) (pow (sin (* 1/2 lambda1)) 2))))) (/ 1 (sin (* 1/2 lambda1))))>
#<alt (/ 1 (sin (* 1/2 (- lambda1 lambda2))))>
#<alt (/ 1 (sin (* 1/2 (- lambda1 lambda2))))>
#<alt (/ 1 (sin (* 1/2 (- lambda1 lambda2))))>
#<alt (/ 1 (sin (* 1/2 (- lambda1 lambda2))))>
#<alt (/ 1 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))>
#<alt (/ 1 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))>
#<alt (/ 1 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))>
#<alt (/ 1 (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 (* -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 (neg (+ lambda2 (* -1 lambda1)))))>
#<alt (- 1 (cos (neg (+ lambda2 (* -1 lambda1)))))>
#<alt (- 1 (cos (neg (+ lambda2 (* -1 lambda1)))))>
#<alt (- 1 (cos (neg (+ 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 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 (* lambda1 lambda2)>
#<alt (* lambda1 (+ lambda2 (* -1/2 lambda1)))>
#<alt (* lambda1 (+ lambda2 (* lambda1 (- (* -1/6 (* lambda1 lambda2)) 1/2))))>
#<alt (* lambda1 (+ lambda2 (* lambda1 (- (* lambda1 (+ (* -1/6 lambda2) (* 1/24 lambda1))) 1/2))))>
#<alt (- (+ (cos lambda1) (* lambda2 (sin lambda1))) 1)>
#<alt (- (+ (cos lambda1) (* lambda2 (sin lambda1))) 1)>
#<alt (- (+ (cos lambda1) (* lambda2 (sin lambda1))) 1)>
#<alt (- (+ (cos lambda1) (* lambda2 (sin lambda1))) 1)>
#<alt (- (+ (cos lambda1) (* lambda2 (sin lambda1))) 1)>
#<alt (- (+ (cos lambda1) (* lambda2 (sin lambda1))) 1)>
#<alt (- (+ (cos lambda1) (* lambda2 (sin lambda1))) 1)>
#<alt (- (+ (cos lambda1) (* lambda2 (sin lambda1))) 1)>
#<alt (- (cos lambda1) 1)>
#<alt (- (+ (cos lambda1) (* lambda2 (sin lambda1))) 1)>
#<alt (- (+ (cos lambda1) (* lambda2 (sin lambda1))) 1)>
#<alt (- (+ (cos lambda1) (* lambda2 (sin lambda1))) 1)>
#<alt (* lambda2 (sin lambda1))>
#<alt (* lambda2 (- (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/ 1 lambda2)))>
#<alt (* lambda2 (- (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/ 1 lambda2)))>
#<alt (* lambda2 (- (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/ 1 lambda2)))>
#<alt (* lambda2 (sin lambda1))>
#<alt (* -1 (* lambda2 (+ (* -1 (sin lambda1)) (* -1 (/ (- (cos lambda1) 1) lambda2)))))>
#<alt (* -1 (* lambda2 (+ (* -1 (sin lambda1)) (* -1 (/ (- (cos lambda1) 1) lambda2)))))>
#<alt (* -1 (* lambda2 (+ (* -1 (sin lambda1)) (* -1 (/ (- (cos lambda1) 1) lambda2)))))>
#<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 (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))))>
#<alt (cos (* -1/2 phi2))>
#<alt (+ (cos (* -1/2 phi2)) (* -1/2 (* phi1 (sin (* -1/2 phi2)))))>
#<alt (+ (cos (* -1/2 phi2)) (* phi1 (- (* -1/8 (* phi1 (cos (* -1/2 phi2)))) (* 1/2 (sin (* -1/2 phi2))))))>
#<alt (+ (cos (* -1/2 phi2)) (* phi1 (- (* phi1 (+ (* -1/8 (cos (* -1/2 phi2))) (* 1/48 (* phi1 (sin (* -1/2 phi2)))))) (* 1/2 (sin (* -1/2 phi2))))))>
#<alt (cos (* 1/2 (- phi1 phi2)))>
#<alt (cos (* 1/2 (- phi1 phi2)))>
#<alt (cos (* 1/2 (- phi1 phi2)))>
#<alt (cos (* 1/2 (- phi1 phi2)))>
#<alt (cos (* -1/2 (+ phi2 (* -1 phi1))))>
#<alt (cos (* -1/2 (+ phi2 (* -1 phi1))))>
#<alt (cos (* -1/2 (+ phi2 (* -1 phi1))))>
#<alt (cos (* -1/2 (+ phi2 (* -1 phi1))))>
#<alt (cos (* 1/2 phi1))>
#<alt (+ (cos (* 1/2 phi1)) (* 1/2 (* phi2 (sin (* 1/2 phi1)))))>
#<alt (+ (cos (* 1/2 phi1)) (* phi2 (- (* -1/8 (* phi2 (cos (* 1/2 phi1)))) (* -1/2 (sin (* 1/2 phi1))))))>
#<alt (+ (cos (* 1/2 phi1)) (* phi2 (- (* phi2 (+ (* -1/8 (cos (* 1/2 phi1))) (* -1/48 (* phi2 (sin (* 1/2 phi1)))))) (* -1/2 (sin (* 1/2 phi1))))))>
#<alt (cos (* 1/2 (- phi1 phi2)))>
#<alt (cos (* 1/2 (- phi1 phi2)))>
#<alt (cos (* 1/2 (- phi1 phi2)))>
#<alt (cos (* 1/2 (- phi1 phi2)))>
#<alt (cos (* 1/2 (+ phi1 (* -1 phi2))))>
#<alt (cos (* 1/2 (+ phi1 (* -1 phi2))))>
#<alt (cos (* 1/2 (+ phi1 (* -1 phi2))))>
#<alt (cos (* 1/2 (+ phi1 (* -1 phi2))))>
#<alt (+ (sin (* -1/2 phi2)) (sin (* 1/2 phi2)))>
#<alt (+ (sin (* -1/2 phi2)) (+ (sin (* 1/2 phi2)) (* phi1 (+ (* 1/2 (cos (* -1/2 phi2))) (* 1/2 (cos (* 1/2 phi2)))))))>
#<alt (+ (sin (* -1/2 phi2)) (+ (sin (* 1/2 phi2)) (* phi1 (+ (* 1/2 (cos (* -1/2 phi2))) (+ (* 1/2 (cos (* 1/2 phi2))) (* phi1 (+ (* -1/8 (sin (* -1/2 phi2))) (* -1/8 (sin (* 1/2 phi2))))))))))>
#<alt (+ (sin (* -1/2 phi2)) (+ (sin (* 1/2 phi2)) (* phi1 (+ (* 1/2 (cos (* -1/2 phi2))) (+ (* 1/2 (cos (* 1/2 phi2))) (* phi1 (+ (* -1/8 (sin (* -1/2 phi2))) (+ (* -1/8 (sin (* 1/2 phi2))) (* phi1 (+ (* -1/48 (cos (* -1/2 phi2))) (* -1/48 (cos (* 1/2 phi2)))))))))))))>
#<alt (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))>
#<alt (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))>
#<alt (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))>
#<alt (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))>
#<alt (+ (sin (* -1/2 (+ phi2 (* -1 phi1)))) (sin (* 1/2 (- phi2 (* -1 phi1)))))>
#<alt (+ (sin (* -1/2 (+ phi2 (* -1 phi1)))) (sin (* 1/2 (- phi2 (* -1 phi1)))))>
#<alt (+ (sin (* -1/2 (+ phi2 (* -1 phi1)))) (sin (* 1/2 (- phi2 (* -1 phi1)))))>
#<alt (+ (sin (* -1/2 (+ phi2 (* -1 phi1)))) (sin (* 1/2 (- phi2 (* -1 phi1)))))>
#<alt (* 2 (sin (* 1/2 phi1)))>
#<alt (+ (* 2 (sin (* 1/2 phi1))) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* 1/2 (cos (* 1/2 phi1))))))>
#<alt (+ (* 2 (sin (* 1/2 phi1))) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (+ (* -1/4 (* phi2 (sin (* 1/2 phi1)))) (* 1/2 (cos (* 1/2 phi1)))))))>
#<alt (+ (* 2 (sin (* 1/2 phi1))) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (+ (* 1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/4 (sin (* 1/2 phi1))) (* phi2 (+ (* -1/48 (cos (* 1/2 phi1))) (* 1/48 (cos (* 1/2 phi1)))))))))))>
#<alt (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))>
#<alt (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))>
#<alt (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))>
#<alt (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))>
#<alt (+ (sin (* 1/2 (+ phi1 (* -1 phi2)))) (sin (* 1/2 (- phi1 (* -1 phi2)))))>
#<alt (+ (sin (* 1/2 (+ phi1 (* -1 phi2)))) (sin (* 1/2 (- phi1 (* -1 phi2)))))>
#<alt (+ (sin (* 1/2 (+ phi1 (* -1 phi2)))) (sin (* 1/2 (- phi1 (* -1 phi2)))))>
#<alt (+ (sin (* 1/2 (+ phi1 (* -1 phi2)))) (sin (* 1/2 (- phi1 (* -1 phi2)))))>
#<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/8 (* phi2 (sin (* 1/2 phi1)))) (* 1/2 (cos (* 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

345 calls:

Time	Variable		Point	Expression
113.0ms	phi1	@	-inf	(sqrt (+ (* (cos (/ (- phi1 phi2) 2)) (cos (/ (- phi1 phi2) 2))) (/ (* (+ (cos (* (- lambda1 lambda2) 1)) -1) (* (cos phi1) (cos phi2))) 2)))
16.0ms	lambda1	@	0	(+ 1 (- (* (* (cos phi1) (cos phi2)) (* (/ 1 (/ (sin (* 1/2 (+ lambda1 lambda2))) (* (sin (* 1/2 (+ lambda1 lambda2))) (sin (/ (- lambda1 lambda2) 2))))) (sin (/ (- lambda1 lambda2) -2)))) (pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2)))
15.0ms	phi1	@	-inf	(* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (cos (/ (- phi1 phi2) 2)) (cos (/ (- phi1 phi2) 2))) (/ (* (+ (cos (* (- lambda1 lambda2) 1)) -1) (* (cos phi1) (cos phi2))) 2)))))
15.0ms	lambda1	@	-inf	(sqrt (+ (+ 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (+ (cos (* (- lambda1 lambda2) 1)) -1) (* (cos phi1) (cos phi2))) 2)))
7.0ms	lambda1	@	-inf	(sin (/ (- lambda1 lambda2) -2))

rewrite384.0ms (0.8%)

Algorithm

1×	batch-egg-rewrite

Rules

3502×	`-lowering-.f32`
3502×	`-lowering-.f64`
2580×	`/-lowering-/.f32`
2580×	`/-lowering-/.f64`
1774×	`+-lowering-+.f64`

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	114	1120
1	687	883
2	7148	883
0	8148	883

Stop Event

1×	iter limit
1×	node limit

Counts

35 → 427

Calls

Call 1

Inputs
(* (atan2 (sqrt (+ (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)))))) (sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (/ 1 (/ (sin (* 1/2 (+ lambda1 lambda2))) (* (sin (* 1/2 (+ lambda1 lambda2))) (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))) (* (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)) (* (/ 1 (/ (sin (* 1/2 (+ lambda1 lambda2))) (* (sin (* 1/2 (+ lambda1 lambda2))) (sin (/ (- lambda1 lambda2) 2))))) (sin (/ (- lambda1 lambda2) -2)))) (pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2)))))
(sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (/ 1 (/ (sin (* 1/2 (+ lambda1 lambda2))) (* (sin (* 1/2 (+ lambda1 lambda2))) (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)) (* (/ 1 (/ (sin (* 1/2 (+ lambda1 lambda2))) (* (sin (* 1/2 (+ lambda1 lambda2))) (sin (/ (- lambda1 lambda2) 2))))) (sin (/ (- lambda1 lambda2) -2)))) (pow (- (* (sin (/ phi1 2)) (cos (/ phi2 2))) (* (cos (/ phi1 2)) (sin (/ phi2 2)))) 2)))
(* (atan2 (sqrt (* 1/2 (- 1 (cos (- lambda1 lambda2))))) (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 (cos (- lambda1 lambda2))))) (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 (* (- 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))
(* (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 (sin lambda1)) -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 (sin lambda1)) -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))
(* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (cos (/ (- phi1 phi2) 2)) (cos (/ (- phi1 phi2) 2))) (/ (* (+ (cos (* (- lambda1 lambda2) 1)) -1) (* (cos phi1) (cos phi2))) 2))))))
(* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (cos (/ (- phi1 phi2) 2)) (cos (/ (- phi1 phi2) 2))) (/ (* (+ (cos (* (- lambda1 lambda2) 1)) -1) (* (cos phi1) (cos phi2))) 2)))))
(atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (cos (/ (- phi1 phi2) 2)) (cos (/ (- phi1 phi2) 2))) (/ (* (+ (cos (* (- lambda1 lambda2) 1)) -1) (* (cos phi1) (cos phi2))) 2))))
(sqrt (+ (* (cos (/ (- phi1 phi2) 2)) (cos (/ (- phi1 phi2) 2))) (/ (* (+ (cos (* (- lambda1 lambda2) 1)) -1) (* (cos phi1) (cos phi2))) 2)))
(* (atan2 (sqrt (+ (pow (+ (* (+ (sin (/ (- phi1 phi2) 2)) (sin (* 1/2 (+ phi1 phi2)))) 1/2) (- 0 (* (cos (/ phi1 2)) (sin (/ phi2 2))))) 2) (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt (+ (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) -2))) (sin (/ (- lambda1 lambda2) 2))) (neg (- (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) 1))))) (* R 2))
(atan2 (sqrt (+ (pow (+ (* (+ (sin (/ (- phi1 phi2) 2)) (sin (* 1/2 (+ phi1 phi2)))) 1/2) (- 0 (* (cos (/ phi1 2)) (sin (/ phi2 2))))) 2) (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt (+ (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) -2))) (sin (/ (- lambda1 lambda2) 2))) (neg (- (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) 1)))))
(sqrt (+ (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) -2))) (sin (/ (- lambda1 lambda2) 2))) (neg (- (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) 1))))
(+ (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) -2))) (sin (/ (- lambda1 lambda2) 2))) (neg (- (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) 1)))
(sin (* 1/2 (+ lambda1 lambda2)))
(sin (/ (- lambda1 lambda2) 2))
(sin (/ (- lambda1 lambda2) -2))
(/ (sin (* 1/2 (+ lambda1 lambda2))) (* (sin (* 1/2 (+ lambda1 lambda2))) (sin (/ (- lambda1 lambda2) 2))))
(cos (* 2 (/ (- phi1 phi2) 2)))
(+ (cos (* (- lambda1 lambda2) 1)) -1)
(- 1 (cos (- lambda1 lambda2)))
(cos (- lambda1 lambda2))
(+ (cos lambda1) (+ (* lambda2 (sin lambda1)) -1))
(- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2)))))
(- 1 (cos (* (- lambda1 lambda2) 1)))
(sin (/ (- phi1 phi2) 2))
(cos (/ (- phi1 phi2) 2))
(+ (sin (/ (- phi1 phi2) 2)) (sin (* 1/2 (+ phi1 phi2))))
(sin (* 1/2 (+ phi1 phi2)))

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

simplify1.5s (2.9%)

Algorithm

1×	egg-herbie

Rules

6276×	`-lowering-.f32`
6276×	`-lowering-.f64`
3840×	`+-lowering-+.f64`
3840×	`+-lowering-+.f32`
1930×	`sum3-define`

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	1935	59547
1	6538	58877
0	8184	58877

Stop Event

1×	iter limit
1×	node limit

Counts

1380 → 1380

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 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2)))
(+ (sqrt (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2))) (* 1/2 (* (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2)))))))
(+ (sqrt (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* 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) (pow (sin (* 1/2 phi2)) 2)) (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2)))) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2)))))) (* 1/2 (* (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2)))))))))
(+ (sqrt (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2)))))) (* phi1 (+ (* -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) (* (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) (pow (sin (* 1/2 phi2)) 2)) (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2)))) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))))) (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2)))))) (* 1/2 (* (- (* -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) (pow (sin (* 1/2 phi2)) 2)) (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2)))) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2)))))))))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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 (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))
(+ (sqrt (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))) (* 1/2 (* (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))))
(+ (sqrt (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* 1/2 (* (* 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) (pow (sin (* 1/2 phi1)) 2)) (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))))))
(+ (sqrt (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* 1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))) (* phi2 (+ (* -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 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (- (* -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) (pow (sin (* 1/2 phi1)) 2)) (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 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)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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 (- (+ 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)))
(+ (sqrt (- (+ 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/2 (* (* 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)))))))) (sqrt (/ 1 (- (+ 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)))))))
(+ (sqrt (- (+ 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))) (* lambda1 (+ (* 1/2 (* (* 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))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))) 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)))))) (sqrt (/ 1 (- (+ 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/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (sqrt (/ 1 (- (+ 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)))))))))
(+ (sqrt (- (+ 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))) (* lambda1 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (sqrt (/ 1 (- (+ 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)))))) (* lambda1 (+ (* 1/2 (* (* 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))))))))) (* 1/2 (/ (* (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) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))) 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 (* (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)))))) (sqrt (/ 1 (- (+ 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/2 (* (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))) 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))))) (sqrt (/ 1 (- (+ 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)))))))))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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 (- (+ 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)))
(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)))
(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)))
(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)))
(sqrt (- (+ 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)))
(+ (sqrt (- (+ 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/2 (* (* 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)))))))) (sqrt (/ 1 (- (+ 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)))))))
(+ (sqrt (- (+ 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))) (* lambda2 (+ (* 1/2 (* (* 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))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))) 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)))))) (sqrt (/ 1 (- (+ 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/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (sqrt (/ 1 (- (+ 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)))))))))
(+ (sqrt (- (+ 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))) (* lambda2 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (sqrt (/ 1 (- (+ 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)))))) (* lambda2 (+ (* 1/2 (* (* 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))))))))) (* 1/2 (/ (* (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) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))) 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 (* (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)))))) (sqrt (/ 1 (- (+ 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/2 (* (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))) 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))))) (sqrt (/ 1 (- (+ 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)))))))))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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 (- (+ 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 (- (+ 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 (- (+ 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 (- (+ 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 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))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (neg (+ lambda2 (* -1 lambda1))))))) (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) (sqrt (- 1 (cos (neg (+ lambda2 (* -1 lambda1))))))) (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) (sqrt (- 1 (cos (neg (+ lambda2 (* -1 lambda1))))))) (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) (sqrt (- 1 (cos (neg (+ lambda2 (* -1 lambda1))))))) (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) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (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) (sqrt (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (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) (sqrt (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (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) (sqrt (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (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) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (neg (+ lambda2 (* -1 lambda1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (neg (+ lambda2 (* -1 lambda1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (neg (+ lambda2 (* -1 lambda1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (neg (+ lambda2 (* -1 lambda1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))) (* -1/4 (* (* phi1 (sin (neg phi2))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))) (* phi1 (+ (* -1/4 (* (sin (neg phi2)) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))) (* 1/2 (* (* phi1 (- (+ (* -1/4 (cos (neg phi2))) (* -1/4 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))) (* phi1 (+ (* -1/4 (* (sin (neg phi2)) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))) (- (+ (* -1/4 (cos (neg phi2))) (* -1/4 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))))) (* 1/2 (* (* phi1 (- (* 1/12 (sin (neg phi2))) (* -1/4 (/ (* (sin (neg phi2)) (- (+ (* -1/4 (cos (neg phi2))) (* -1/4 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))) (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))))) (* 1/4 (* (* phi2 (sin phi1)) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))))) (* phi2 (+ (* 1/4 (* (sin phi1) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))))))))) (* 1/2 (* (* phi2 (- (+ (* -1/4 (cos phi1)) (* -1/4 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* 1/16 (/ (pow (sin phi1) 2) (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))))))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))))) (* phi2 (+ (* 1/4 (* (sin phi1) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))))))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))))))) (- (+ (* -1/4 (cos phi1)) (* -1/4 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* 1/16 (/ (pow (sin phi1) 2) (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))))))))) (* 1/2 (* (* phi2 (- (* -1/12 (sin phi1)) (* 1/4 (/ (* (sin phi1) (- (+ (* -1/4 (cos phi1)) (* -1/4 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* 1/16 (/ (pow (sin phi1) 2) (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))))))))) (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))))))))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))))) (* -1/4 (* (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))))) (* lambda1 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))))))))) (* 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 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))))))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))))) (* lambda1 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))))))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))))))) (- (* -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 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))))))))) (* 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 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))))))))))) (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))))))))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))))) (* 1/4 (* (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))))) (* lambda2 (+ (* 1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda1))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))))))))) (* 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 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))))))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))))) (* lambda2 (+ (* 1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda1))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))))))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))))))) (- (* -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 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))))))))) (* 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 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))))))))))) (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))))))))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(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 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))))))
(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 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))))))
(+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))
(+ 1/2 (+ (* -1/2 (* phi1 (sin (neg phi2)))) (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+ 1/2 (+ (* 1/2 (cos (neg phi2))) (+ (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (* phi1 (+ (* -1/2 (sin (neg phi2))) (* phi1 (+ (* -1/4 (cos (neg phi2))) (* -1/4 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(+ 1/2 (+ (* 1/2 (cos (neg phi2))) (+ (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (* phi1 (+ (* -1/2 (sin (neg phi2))) (* phi1 (+ (* -1/4 (cos (neg phi2))) (+ (* -1/4 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (* 1/12 (* phi1 (sin (neg phi2))))))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))))
(+ 1/2 (+ (* 1/2 (cos phi1)) (+ (* 1/2 (* phi2 (sin phi1))) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))))))
(+ 1/2 (+ (* 1/2 (cos phi1)) (+ (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (* phi2 (+ (* 1/2 (sin phi1)) (* phi2 (+ (* -1/4 (cos phi1)) (* -1/4 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))))))))))
(+ 1/2 (+ (* 1/2 (cos phi1)) (+ (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (* phi2 (+ (* 1/2 (sin phi1)) (* phi2 (+ (* -1/4 (cos phi1)) (+ (* -1/4 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (* -1/12 (* phi2 (sin phi1)))))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))))
(+ 1/2 (+ (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/4 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/12 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (+ (* 1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))) (* lambda2 (+ (* -1/4 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* 1/2 (* (cos phi1) (* (cos phi2) (sin lambda1)))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))) (* lambda2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* lambda2 (+ (* -1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/12 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))
(+ 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin lambda1))) 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 (sin lambda1))) 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 (sin lambda1))) 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 (sin lambda1))) 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin lambda1))) 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 (sin lambda1))) 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 (sin lambda1))) 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 (sin lambda1))) 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 lambda1) (* lambda2 (sin 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 lambda1) (* lambda2 (sin 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 lambda1) (* lambda2 (sin 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 lambda1) (* lambda2 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin lambda1))) 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) (* lambda2 (sin lambda1))) 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) (* lambda2 (sin lambda1))) 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) (* lambda2 (sin lambda1))) 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) (* lambda2 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin lambda1))) 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 (sin lambda1))) 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 (sin lambda1))) 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 (sin lambda1))) 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin lambda1))) 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 (sin lambda1))) 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 (sin lambda1))) 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 (sin lambda1))) 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 lambda1) (* lambda2 (sin 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 lambda1) (* lambda2 (sin 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 lambda1) (* lambda2 (sin 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 lambda1) (* lambda2 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin 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 (sin lambda1))) 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) (* lambda2 (sin lambda1))) 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) (* lambda2 (sin lambda1))) 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) (* lambda2 (sin lambda1))) 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) (* lambda2 (sin lambda1))) 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 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* -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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* -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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* -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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* -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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* -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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* -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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* -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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* -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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* -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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* -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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* -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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* -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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))) (pow (cos (* 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/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2))))
(sqrt (+ (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* -1/2 phi2)) 2)))
(+ (sqrt (+ (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* -1/2 phi2)) 2))) (* -1/2 (* (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (sqrt (/ 1 (+ (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* -1/2 phi2)) 2)))))))
(+ (sqrt (+ (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* -1/2 phi2)) 2))) (* phi1 (+ (* -1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* -1/2 phi2)) 2)))))) (* 1/2 (* (* phi1 (- (+ (* -1/4 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (+ (* -1/4 (pow (cos (* -1/2 phi2)) 2)) (* 1/4 (pow (sin (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* -1/2 phi2)) 2)))))))))
(+ (sqrt (+ (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* -1/2 phi2)) 2))) (* phi1 (+ (* -1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* -1/2 phi2)) 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* -1/2 phi2)) 2)))) (- (+ (* -1/4 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (+ (* -1/4 (pow (cos (* -1/2 phi2)) 2)) (* 1/4 (pow (sin (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* -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/4 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (+ (* -1/4 (pow (cos (* -1/2 phi2)) 2)) (* 1/4 (pow (sin (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* -1/2 phi2)) 2))))))) (+ (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* -1/2 phi2)) 2)))))))))))
(sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt (+ (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* 1/2 phi1)) 2)))
(+ (sqrt (+ (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* 1/2 phi1)) 2))) (* 1/2 (* (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (sqrt (/ 1 (+ (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* 1/2 phi1)) 2)))))))
(+ (sqrt (+ (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* 1/2 phi1)) 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ (* -1/4 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* 1/2 phi1)) 2)))))) (* 1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* 1/2 phi1)) 2)))))))))
(+ (sqrt (+ (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* 1/2 phi1)) 2))) (* phi2 (+ (* 1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* 1/2 phi1)) 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* 1/2 phi1)) 2)))) (- (+ (* -1/4 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* 1/2 phi1)) 2))))))) (* 1/2 (* (* phi2 (- (+ (* -1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* -1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (* 1/2 (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (- (+ (* -1/4 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* 1/2 phi1)) 2))))))) (+ (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* 1/2 phi1)) 2)))))))))))
(sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))
(+ (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2))) (* -1/4 (* (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (sqrt (/ 1 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))))
(+ (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))) (sqrt (/ 1 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))) (* 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 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))))))
(+ (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))) (sqrt (/ 1 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 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 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2))))))) (* 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 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))))) (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))))))))
(sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))
(+ (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2))) (* 1/4 (* (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (sqrt (/ 1 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))))
(+ (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* 1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda1))) (sqrt (/ 1 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))) (* 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 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))))))
(+ (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* 1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda1))) (sqrt (/ 1 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 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 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2))))))) (* 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 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))))) (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))))))))
(sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* -1/2 (+ phi2 (* -1 phi1)))) (sin (* 1/2 (- phi2 (* -1 phi1)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* -1/2 (+ phi2 (* -1 phi1)))) (sin (* 1/2 (- phi2 (* -1 phi1)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* -1/2 (+ phi2 (* -1 phi1)))) (sin (* 1/2 (- phi2 (* -1 phi1)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* -1/2 (+ phi2 (* -1 phi1)))) (sin (* 1/2 (- phi2 (* -1 phi1)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 (* -1 phi2)))) (sin (* 1/2 (- phi1 (* -1 phi2)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 (* -1 phi2)))) (sin (* 1/2 (- phi1 (* -1 phi2)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 (* -1 phi2)))) (sin (* 1/2 (- phi1 (* -1 phi2)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 (* -1 phi2)))) (sin (* 1/2 (- phi1 (* -1 phi2)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* -1/2 (+ phi2 (* -1 phi1)))) (sin (* 1/2 (- phi2 (* -1 phi1)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* -1/2 (+ phi2 (* -1 phi1)))) (sin (* 1/2 (- phi2 (* -1 phi1)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* -1/2 (+ phi2 (* -1 phi1)))) (sin (* 1/2 (- phi2 (* -1 phi1)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* -1/2 (+ phi2 (* -1 phi1)))) (sin (* 1/2 (- phi2 (* -1 phi1)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 (* -1 phi2)))) (sin (* 1/2 (- phi1 (* -1 phi2)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 (* -1 phi2)))) (sin (* 1/2 (- phi1 (* -1 phi2)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 (* -1 phi2)))) (sin (* 1/2 (- phi1 (* -1 phi2)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 (* -1 phi2)))) (sin (* 1/2 (- phi1 (* -1 phi2)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))) (* -1/4 (* (* phi1 (sin (neg phi2))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))) (* phi1 (+ (* -1/4 (* (sin (neg phi2)) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))) (* 1/2 (* (* phi1 (- (+ (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (* -1/4 (cos (neg phi2)))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))) (* phi1 (+ (* -1/4 (* (sin (neg phi2)) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))) (- (+ (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (* -1/4 (cos (neg phi2)))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))))) (* 1/2 (* (* phi1 (- (* 1/12 (sin (neg phi2))) (* -1/4 (/ (* (sin (neg phi2)) (- (+ (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (* -1/4 (cos (neg phi2)))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))) (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))) (* 1/4 (* (* phi2 (sin phi1)) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))) (* phi2 (+ (* 1/4 (* (sin phi1) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))) (* 1/2 (* (* phi2 (- (+ (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (* -1/4 (cos phi1))) (* 1/16 (/ (pow (sin phi1) 2) (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))) (* phi2 (+ (* 1/4 (* (sin phi1) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))) (- (+ (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (* -1/4 (cos phi1))) (* 1/16 (/ (pow (sin phi1) 2) (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))))) (* 1/2 (* (* phi2 (- (* -1/12 (sin phi1)) (* 1/4 (/ (* (sin phi1) (- (+ (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (* -1/4 (cos phi1))) (* 1/16 (/ (pow (sin phi1) 2) (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))) (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (* 1/2 (* (* 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)))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (* lambda1 (+ (* 1/2 (* (* 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))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))) 2))) (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (* lambda1 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -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))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))) 2))) (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))))))) (* 1/2 (* (* 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))))))))) (* 1/2 (/ (* (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) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))) 2))) (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))))))) (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1))))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1))))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1))))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1))))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* 1/2 (* (* 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)))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* lambda2 (+ (* 1/2 (* (* 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))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))) 2))) (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* lambda2 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -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))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))) 2))) (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))))))) (* 1/2 (* (* 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))))))))) (* 1/2 (/ (* (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) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))) 2))) (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))))))) (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2))))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2))))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2))))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2))))))))))
(+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))
(+ 1/2 (+ (* -1/2 (* phi1 (sin (neg phi2)))) (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+ 1/2 (+ (* 1/2 (cos (neg phi2))) (+ (* phi1 (+ (* -1/2 (sin (neg phi2))) (* phi1 (+ (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (* -1/4 (cos (neg phi2))))))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+ 1/2 (+ (* 1/2 (cos (neg phi2))) (+ (* phi1 (+ (* -1/2 (sin (neg phi2))) (* phi1 (+ (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (cos (neg phi2))) (* 1/12 (* phi1 (sin (neg phi2))))))))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))
(+ 1/2 (+ (* 1/2 (cos phi1)) (+ (* 1/2 (* phi2 (sin phi1))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+ 1/2 (+ (* 1/2 (cos phi1)) (+ (* phi2 (+ (* 1/2 (sin phi1)) (* phi2 (+ (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (* -1/4 (cos phi1)))))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+ 1/2 (+ (* 1/2 (cos phi1)) (+ (* phi2 (+ (* 1/2 (sin phi1)) (* phi2 (+ (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (cos phi1)) (* -1/12 (* phi2 (sin phi1)))))))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (+ (* 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))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (+ (* 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))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (+ (* 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))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (+ (* 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))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (+ (* 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))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (+ (* 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))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (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/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 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 (sin (* -1/2 lambda2)))
(+ (* -1/2 (/ (* lambda1 (cos (* -1/2 lambda2))) (pow (sin (* -1/2 lambda2)) 2))) (/ 1 (sin (* -1/2 lambda2))))
(+ (* lambda1 (- (* lambda1 (- (* 1/8 (/ 1 (sin (* -1/2 lambda2)))) (* -1/4 (/ (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 3))))) (* 1/2 (/ (cos (* -1/2 lambda2)) (pow (sin (* -1/2 lambda2)) 2))))) (/ 1 (sin (* -1/2 lambda2))))
(+ (* lambda1 (- (* lambda1 (- (+ (* -1 (* lambda1 (+ (* -1/48 (/ (cos (* -1/2 lambda2)) (pow (sin (* -1/2 lambda2)) 2))) (+ (* 1/16 (/ (cos (* -1/2 lambda2)) (pow (sin (* -1/2 lambda2)) 2))) (* 1/2 (/ (* (cos (* -1/2 lambda2)) (- (* 1/8 (/ 1 (sin (* -1/2 lambda2)))) (* -1/4 (/ (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 3))))) (sin (* -1/2 lambda2)))))))) (* 1/8 (/ 1 (sin (* -1/2 lambda2))))) (* -1/4 (/ (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 3))))) (* 1/2 (/ (cos (* -1/2 lambda2)) (pow (sin (* -1/2 lambda2)) 2))))) (/ 1 (sin (* -1/2 lambda2))))
(/ 1 (sin (* 1/2 (- lambda1 lambda2))))
(/ 1 (sin (* 1/2 (- lambda1 lambda2))))
(/ 1 (sin (* 1/2 (- lambda1 lambda2))))
(/ 1 (sin (* 1/2 (- lambda1 lambda2))))
(/ 1 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))))
(/ 1 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))))
(/ 1 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))))
(/ 1 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))))
(/ 1 (sin (* 1/2 lambda1)))
(+ (* 1/2 (/ (* lambda2 (cos (* 1/2 lambda1))) (pow (sin (* 1/2 lambda1)) 2))) (/ 1 (sin (* 1/2 lambda1))))
(+ (* lambda2 (- (* lambda2 (- (* 1/8 (/ 1 (sin (* 1/2 lambda1)))) (* -1/4 (/ (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 3))))) (* -1/2 (/ (cos (* 1/2 lambda1)) (pow (sin (* 1/2 lambda1)) 2))))) (/ 1 (sin (* 1/2 lambda1))))
(+ (* lambda2 (- (* lambda2 (- (+ (* -1 (* lambda2 (+ (* -1/2 (/ (* (cos (* 1/2 lambda1)) (- (* 1/8 (/ 1 (sin (* 1/2 lambda1)))) (* -1/4 (/ (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 3))))) (sin (* 1/2 lambda1)))) (+ (* -1/16 (/ (cos (* 1/2 lambda1)) (pow (sin (* 1/2 lambda1)) 2))) (* 1/48 (/ (cos (* 1/2 lambda1)) (pow (sin (* 1/2 lambda1)) 2))))))) (* 1/8 (/ 1 (sin (* 1/2 lambda1))))) (* -1/4 (/ (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 3))))) (* -1/2 (/ (cos (* 1/2 lambda1)) (pow (sin (* 1/2 lambda1)) 2))))) (/ 1 (sin (* 1/2 lambda1))))
(/ 1 (sin (* 1/2 (- lambda1 lambda2))))
(/ 1 (sin (* 1/2 (- lambda1 lambda2))))
(/ 1 (sin (* 1/2 (- lambda1 lambda2))))
(/ 1 (sin (* 1/2 (- lambda1 lambda2))))
(/ 1 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))
(/ 1 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))
(/ 1 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))
(/ 1 (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 (* -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 (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 (* -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 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)))
(* lambda1 lambda2)
(* lambda1 (+ lambda2 (* -1/2 lambda1)))
(* lambda1 (+ lambda2 (* lambda1 (- (* -1/6 (* lambda1 lambda2)) 1/2))))
(* lambda1 (+ lambda2 (* lambda1 (- (* lambda1 (+ (* -1/6 lambda2) (* 1/24 lambda1))) 1/2))))
(- (+ (cos lambda1) (* lambda2 (sin lambda1))) 1)
(- (+ (cos lambda1) (* lambda2 (sin lambda1))) 1)
(- (+ (cos lambda1) (* lambda2 (sin lambda1))) 1)
(- (+ (cos lambda1) (* lambda2 (sin lambda1))) 1)
(- (+ (cos lambda1) (* lambda2 (sin lambda1))) 1)
(- (+ (cos lambda1) (* lambda2 (sin lambda1))) 1)
(- (+ (cos lambda1) (* lambda2 (sin lambda1))) 1)
(- (+ (cos lambda1) (* lambda2 (sin lambda1))) 1)
(- (cos lambda1) 1)
(- (+ (cos lambda1) (* lambda2 (sin lambda1))) 1)
(- (+ (cos lambda1) (* lambda2 (sin lambda1))) 1)
(- (+ (cos lambda1) (* lambda2 (sin lambda1))) 1)
(* lambda2 (sin lambda1))
(* lambda2 (- (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/ 1 lambda2)))
(* lambda2 (- (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/ 1 lambda2)))
(* lambda2 (- (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/ 1 lambda2)))
(* lambda2 (sin lambda1))
(* -1 (* lambda2 (+ (* -1 (sin lambda1)) (* -1 (/ (- (cos lambda1) 1) lambda2)))))
(* -1 (* lambda2 (+ (* -1 (sin lambda1)) (* -1 (/ (- (cos lambda1) 1) lambda2)))))
(* -1 (* lambda2 (+ (* -1 (sin lambda1)) (* -1 (/ (- (cos lambda1) 1) lambda2)))))
(- 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 (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))))
(cos (* -1/2 phi2))
(+ (cos (* -1/2 phi2)) (* -1/2 (* phi1 (sin (* -1/2 phi2)))))
(+ (cos (* -1/2 phi2)) (* phi1 (- (* -1/8 (* phi1 (cos (* -1/2 phi2)))) (* 1/2 (sin (* -1/2 phi2))))))
(+ (cos (* -1/2 phi2)) (* phi1 (- (* phi1 (+ (* -1/8 (cos (* -1/2 phi2))) (* 1/48 (* phi1 (sin (* -1/2 phi2)))))) (* 1/2 (sin (* -1/2 phi2))))))
(cos (* 1/2 (- phi1 phi2)))
(cos (* 1/2 (- phi1 phi2)))
(cos (* 1/2 (- phi1 phi2)))
(cos (* 1/2 (- phi1 phi2)))
(cos (* -1/2 (+ phi2 (* -1 phi1))))
(cos (* -1/2 (+ phi2 (* -1 phi1))))
(cos (* -1/2 (+ phi2 (* -1 phi1))))
(cos (* -1/2 (+ phi2 (* -1 phi1))))
(cos (* 1/2 phi1))
(+ (cos (* 1/2 phi1)) (* 1/2 (* phi2 (sin (* 1/2 phi1)))))
(+ (cos (* 1/2 phi1)) (* phi2 (- (* -1/8 (* phi2 (cos (* 1/2 phi1)))) (* -1/2 (sin (* 1/2 phi1))))))
(+ (cos (* 1/2 phi1)) (* phi2 (- (* phi2 (+ (* -1/8 (cos (* 1/2 phi1))) (* -1/48 (* phi2 (sin (* 1/2 phi1)))))) (* -1/2 (sin (* 1/2 phi1))))))
(cos (* 1/2 (- phi1 phi2)))
(cos (* 1/2 (- phi1 phi2)))
(cos (* 1/2 (- phi1 phi2)))
(cos (* 1/2 (- phi1 phi2)))
(cos (* 1/2 (+ phi1 (* -1 phi2))))
(cos (* 1/2 (+ phi1 (* -1 phi2))))
(cos (* 1/2 (+ phi1 (* -1 phi2))))
(cos (* 1/2 (+ phi1 (* -1 phi2))))
(+ (sin (* -1/2 phi2)) (sin (* 1/2 phi2)))
(+ (sin (* -1/2 phi2)) (+ (sin (* 1/2 phi2)) (* phi1 (+ (* 1/2 (cos (* -1/2 phi2))) (* 1/2 (cos (* 1/2 phi2)))))))
(+ (sin (* -1/2 phi2)) (+ (sin (* 1/2 phi2)) (* phi1 (+ (* 1/2 (cos (* -1/2 phi2))) (+ (* 1/2 (cos (* 1/2 phi2))) (* phi1 (+ (* -1/8 (sin (* -1/2 phi2))) (* -1/8 (sin (* 1/2 phi2))))))))))
(+ (sin (* -1/2 phi2)) (+ (sin (* 1/2 phi2)) (* phi1 (+ (* 1/2 (cos (* -1/2 phi2))) (+ (* 1/2 (cos (* 1/2 phi2))) (* phi1 (+ (* -1/8 (sin (* -1/2 phi2))) (+ (* -1/8 (sin (* 1/2 phi2))) (* phi1 (+ (* -1/48 (cos (* -1/2 phi2))) (* -1/48 (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 (+ 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 (+ phi2 (* -1 phi1)))) (sin (* 1/2 (- phi2 (* -1 phi1)))))
(+ (sin (* -1/2 (+ phi2 (* -1 phi1)))) (sin (* 1/2 (- phi2 (* -1 phi1)))))
(* 2 (sin (* 1/2 phi1)))
(+ (* 2 (sin (* 1/2 phi1))) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* 1/2 (cos (* 1/2 phi1))))))
(+ (* 2 (sin (* 1/2 phi1))) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (+ (* -1/4 (* phi2 (sin (* 1/2 phi1)))) (* 1/2 (cos (* 1/2 phi1)))))))
(+ (* 2 (sin (* 1/2 phi1))) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (+ (* 1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/4 (sin (* 1/2 phi1))) (* phi2 (+ (* -1/48 (cos (* 1/2 phi1))) (* 1/48 (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 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)))))
(+ (sin (* 1/2 (+ phi1 (* -1 phi2)))) (sin (* 1/2 (- phi1 (* -1 phi2)))))
(+ (sin (* 1/2 (+ phi1 (* -1 phi2)))) (sin (* 1/2 (- phi1 (* -1 phi2)))))
(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/8 (* phi2 (sin (* 1/2 phi1)))) (* 1/2 (cos (* 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (neg.f64 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 (neg.f64 lambda1))))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 (neg.f64 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 (neg.f64 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 (neg.f64 lambda1))))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 (neg.f64 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 (neg.f64 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 (neg.f64 lambda1))))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 (neg.f64 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 (neg.f64 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 (neg.f64 lambda1))))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 (neg.f64 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (neg.f64 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 (neg.f64 lambda1))))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 (neg.f64 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 (neg.f64 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 (neg.f64 lambda1))))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 (neg.f64 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 (neg.f64 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 (neg.f64 lambda1))))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 (neg.f64 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 (neg.f64 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 (neg.f64 lambda1))))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 (neg.f64 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2)))
(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)))))
(+ (sqrt (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2))) (* 1/2 (* (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2)))))))
(+.f64 (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 (.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 #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))))))))
(+ (sqrt (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* 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) (pow (sin (* 1/2 phi2)) 2)) (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2)))) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2)))))) (* 1/2 (* (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2)))))))))
(+.f64 (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 phi1 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 phi1 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.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 (-.f64 (.f64 #s(literal -1/2 binary64) (.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 (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) (+.f64 (/.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 #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))))) (pow.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))))) (.f64 (.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 #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)))))))))))
(+ (sqrt (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2)))))) (* phi1 (+ (* -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) (* (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) (pow (sin (* 1/2 phi2)) 2)) (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2)))) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))))) (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2)))))) (* 1/2 (* (- (* -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) (pow (sin (* 1/2 phi2)) 2)) (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2)))) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi2)) 2)))))))))))
(+.f64 (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 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 #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 phi1 (+.f64 (.f64 #s(literal -1/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 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (-.f64 (-.f64 (.f64 #s(literal -1/2 binary64) (.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 (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) (+.f64 (/.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 #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))))) (pow.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))) (+.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)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.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 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.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 (-.f64 (.f64 #s(literal -1/2 binary64) (.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 (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) (+.f64 (/.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 #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))))) (pow.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(+ (sqrt (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))) (* 1/2 (* (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 phi2 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))))))
(+ (sqrt (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* 1/2 (* (* 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) (pow (sin (* 1/2 phi1)) 2)) (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 phi2 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 phi2 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (-.f64 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (.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) (+.f64 (/.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 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (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 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 (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 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))))
(+ (sqrt (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* 1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))) (* phi2 (+ (* -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 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (- (* -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) (pow (sin (* 1/2 phi1)) 2)) (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (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 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 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))))) (.f64 phi2 (+.f64 (.f64 #s(literal -1/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 (.f64 #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 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (.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) (+.f64 (/.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 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (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 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 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (-.f64 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (.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) (+.f64 (/.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 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (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 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))))))))))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (- (+ 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)))
(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)))))
(+ (sqrt (- (+ 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/2 (* (* 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)))))))) (sqrt (/ 1 (- (+ 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 (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 #s(literal 1/2 binary64) (.f64 (.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 #s(literal 1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.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)))))))))
(+ (sqrt (- (+ 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))) (* lambda1 (+ (* 1/2 (* (* 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))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))) 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)))))) (sqrt (/ 1 (- (+ 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/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (sqrt (/ 1 (- (+ 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 (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 lambda1 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 lambda1 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.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 (.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 lambda2 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (.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) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) #s(literal 2 binary64))) (+.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 (.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 #s(literal 1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.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)))))))))))
(+ (sqrt (- (+ 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))) (* lambda1 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (sqrt (/ 1 (- (+ 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)))))) (* lambda1 (+ (* 1/2 (* (* 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))))))))) (* 1/2 (/ (* (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) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))) 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 (* (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)))))) (sqrt (/ 1 (- (+ 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/2 (* (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))) 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))))) (sqrt (/ 1 (- (+ 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 (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 lambda1 (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (.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 #s(literal 1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.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 lambda1 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 lambda1 (.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (+.f64 (.f64 (.f64 #s(literal -1/16 binary64) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal -1/48 binary64))) (.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)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (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 #s(literal 1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (+.f64 (.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 lambda2 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (.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) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) #s(literal 2 binary64))) (+.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 #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))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.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 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.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 (.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 lambda2 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (.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) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) #s(literal 2 binary64))) (+.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))))))))))))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (- (+ 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)))
(sqrt.f64 (+.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 (neg.f64 lambda1))))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 (neg.f64 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)))))
(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)))
(sqrt.f64 (+.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 (neg.f64 lambda1))))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 (neg.f64 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)))))
(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)))
(sqrt.f64 (+.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 (neg.f64 lambda1))))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 (neg.f64 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)))))
(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)))
(sqrt.f64 (+.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 (neg.f64 lambda1))))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 (neg.f64 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)))))
(sqrt (- (+ 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)))
(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)))))
(+ (sqrt (- (+ 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/2 (* (* 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)))))))) (sqrt (/ 1 (- (+ 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 (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 #s(literal 1/2 binary64) (.f64 (.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 #s(literal 1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.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)))))))))
(+ (sqrt (- (+ 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))) (* lambda2 (+ (* 1/2 (* (* 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))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))) 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)))))) (sqrt (/ 1 (- (+ 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/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (sqrt (/ 1 (- (+ 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 (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 lambda2 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 lambda2 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.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 (.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 lambda1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (.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) (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)))))) #s(literal 2 binary64))) (+.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 (.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 #s(literal 1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.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)))))))))))
(+ (sqrt (- (+ 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))) (* lambda2 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (sqrt (/ 1 (- (+ 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)))))) (* lambda2 (+ (* 1/2 (* (* 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))))))))) (* 1/2 (/ (* (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) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))) 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 (* (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)))))) (sqrt (/ 1 (- (+ 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/2 (* (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))) 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))))) (sqrt (/ 1 (- (+ 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 (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 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) (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)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.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 lambda2 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 lambda2 (.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.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) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 1/12 binary64))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (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 (.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 lambda1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (.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) (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)))))) #s(literal 2 binary64))) (+.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 #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))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.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 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.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 (.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 lambda1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (.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) (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)))))) #s(literal 2 binary64))) (+.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))))))))))))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (- (+ 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.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (- (+ 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.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (- (+ 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.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (- (+ 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.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 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 #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 #s(literal -1/2 binary64) (.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 (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 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 (neg.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 (.f64 #s(literal -1/2 binary64) (.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 (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 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (.f64 (cos.f64 phi1) (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 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 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (.f64 (.f64 phi2 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- (+ 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 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (.f64 phi2 (+.f64 (.f64 phi2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (+.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 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 (+.f64 (+.f64 #s(literal 1 binary64) (.f64 phi2 (+.f64 (.f64 phi2 (+.f64 (.f64 (-.f64 #s(literal 0 binary64) 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 #s(literal -1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (+.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 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) (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 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 #s(literal 1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 #s(literal 1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (.f64 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 lambda2 #s(literal -1/2 binary64)))) (.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 #s(literal 1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (.f64 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 lambda2 #s(literal -1/2 binary64)))) (.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 #s(literal -1/16 binary64) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal -1/48 binary64))) (.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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (neg.f64 lambda1))))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 (neg.f64 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 (neg.f64 lambda1))))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 (neg.f64 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 (neg.f64 lambda1))))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 (neg.f64 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 (neg.f64 lambda1))))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 (neg.f64 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 #s(literal 1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.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 (* (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 #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 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 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 (+ (* 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 #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 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 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 #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) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) #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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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)))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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)))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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)))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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)))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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)))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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)))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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)))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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)))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (neg (+ lambda2 (* -1 lambda1))))))) (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 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lambda2 (neg.f64 lambda1)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.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 (neg.f64 lambda1))) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (neg (+ lambda2 (* -1 lambda1))))))) (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 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lambda2 (neg.f64 lambda1)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.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 (neg.f64 lambda1))) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (neg (+ lambda2 (* -1 lambda1))))))) (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 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lambda2 (neg.f64 lambda1)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.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 (neg.f64 lambda1))) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (neg (+ lambda2 (* -1 lambda1))))))) (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 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lambda2 (neg.f64 lambda1)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.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 (neg.f64 lambda1))) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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)))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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)))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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)))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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)))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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)))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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)))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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)))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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)))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (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 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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)))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (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 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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)))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (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 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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)))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (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 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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)))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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)))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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)))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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)))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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)))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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)))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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)))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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)))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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)))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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 (neg.f64 (+.f64 phi2 (neg.f64 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) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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 (neg.f64 (+.f64 phi2 (neg.f64 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) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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 (neg.f64 (+.f64 phi2 (neg.f64 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) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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 (neg.f64 (+.f64 phi2 (neg.f64 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) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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)))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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)))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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)))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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)))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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)))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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)))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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)))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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)))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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)))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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)))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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)))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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)))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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)))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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)))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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)))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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)))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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)))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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)))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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)))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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)))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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)))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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)))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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)))))))))
(* 2 (* R (atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (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 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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)))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (neg (+ lambda2 (* -1 lambda1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lambda2 (neg.f64 lambda1)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.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 (neg.f64 lambda1))) #s(literal -1 binary64))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (neg (+ lambda2 (* -1 lambda1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lambda2 (neg.f64 lambda1)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.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 (neg.f64 lambda1))) #s(literal -1 binary64))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (neg (+ lambda2 (* -1 lambda1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lambda2 (neg.f64 lambda1)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.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 (neg.f64 lambda1))) #s(literal -1 binary64))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (neg (+ lambda2 (* -1 lambda1))))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lambda2 (neg.f64 lambda1)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.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 (neg.f64 lambda1))) #s(literal -1 binary64))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (+ lambda1 (* -1 lambda2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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 (neg.f64 (+.f64 phi2 (neg.f64 phi1)))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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 (neg.f64 (+.f64 phi2 (neg.f64 phi1)))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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 (neg.f64 (+.f64 phi2 (neg.f64 phi1)))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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 (neg.f64 (+.f64 phi2 (neg.f64 phi1)))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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))))))))
(atan2 (* (sqrt 1/2) (sqrt (- 1 (cos (- lambda1 lambda2))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))
(atan2.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi2) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))) (* -1/4 (* (* phi1 (sin (neg phi2))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi2) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 phi1 (sin.f64 (-.f64 #s(literal 0 binary64) phi2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi2) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))) (* phi1 (+ (* -1/4 (* (sin (neg phi2)) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))) (* 1/2 (* (* phi1 (- (+ (* -1/4 (cos (neg phi2))) (* -1/4 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi2) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))) (.f64 phi1 (+.f64 (.f64 (.f64 #s(literal -1/4 binary64) (sin.f64 (-.f64 #s(literal 0 binary64) phi2))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi2) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi2) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/4 binary64) (+.f64 (cos.f64 phi2) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))) (/.f64 (.f64 #s(literal 1/16 binary64) (pow.f64 (sin.f64 (-.f64 #s(literal 0 binary64) phi2)) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi2) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))) (* phi1 (+ (* -1/4 (* (sin (neg phi2)) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))) (- (+ (* -1/4 (cos (neg phi2))) (* -1/4 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))))) (* 1/2 (* (* phi1 (- (* 1/12 (sin (neg phi2))) (* -1/4 (/ (* (sin (neg phi2)) (- (+ (* -1/4 (cos (neg phi2))) (* -1/4 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))) (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi2) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))) (.f64 phi1 (+.f64 (.f64 (.f64 #s(literal -1/4 binary64) (sin.f64 (-.f64 #s(literal 0 binary64) phi2))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi2) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))) (.f64 phi1 (.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) (+.f64 (cos.f64 phi2) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))) (-.f64 (.f64 #s(literal -1/4 binary64) (+.f64 (cos.f64 phi2) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))) (/.f64 (.f64 #s(literal 1/16 binary64) (pow.f64 (sin.f64 (-.f64 #s(literal 0 binary64) phi2)) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi2) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))) (.f64 phi1 (.f64 (+.f64 (.f64 (sin.f64 (-.f64 #s(literal 0 binary64) phi2)) #s(literal 1/12 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (sin.f64 (-.f64 #s(literal 0 binary64) phi2)) (-.f64 (.f64 #s(literal -1/4 binary64) (+.f64 (cos.f64 phi2) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))) (/.f64 (.f64 #s(literal 1/16 binary64) (pow.f64 (sin.f64 (-.f64 #s(literal 0 binary64) phi2)) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi2) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi2) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi2) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.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 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.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 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.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 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.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 (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (neg.f64 (+.f64 phi2 (neg.f64 phi1)))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (neg.f64 (+.f64 phi2 (neg.f64 phi1)))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (neg.f64 (+.f64 phi2 (neg.f64 phi1)))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (neg.f64 (+.f64 phi2 (neg.f64 phi1)))) (.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)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))))) (* 1/4 (* (* phi2 (sin phi1)) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 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 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))))) (* phi2 (+ (* 1/4 (* (sin phi1) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))))))))) (* 1/2 (* (* phi2 (- (+ (* -1/4 (cos phi1)) (* -1/4 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* 1/16 (/ (pow (sin phi1) 2) (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 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 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))) (.f64 phi2 (-.f64 (.f64 #s(literal -1/4 binary64) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi1) (+.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 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))))) (* phi2 (+ (* 1/4 (* (sin phi1) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))))))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))))))) (- (+ (* -1/4 (cos phi1)) (* -1/4 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* 1/16 (/ (pow (sin phi1) 2) (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))))))))) (* 1/2 (* (* phi2 (- (* -1/12 (sin phi1)) (* 1/4 (/ (* (sin phi1) (- (+ (* -1/4 (cos phi1)) (* -1/4 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))) (* 1/16 (/ (pow (sin phi1) 2) (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))))))))) (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))))))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 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 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))) (.f64 phi2 (.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) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))) (-.f64 (.f64 #s(literal -1/4 binary64) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi1) (+.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 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))) (.f64 phi2 (.f64 (+.f64 (.f64 (sin.f64 phi1) #s(literal -1/12 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -1/4 binary64) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi1) (+.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 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.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 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.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 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.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 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.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 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.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 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.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 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.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 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.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 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))))) (* -1/4 (* (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))))))))))
(+.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 (cos.f64 lambda2) #s(literal -1 binary64))))))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(literal 0 binary64) lambda2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64))))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))))) (* lambda1 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))))))))) (* 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 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))))))))))))
(+.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 (cos.f64 lambda2) #s(literal -1 binary64))))))) (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(literal 0 binary64) lambda2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64))))))))) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)))))))) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda2))) (.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 (-.f64 #s(literal 0 binary64) lambda2)) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)))))))))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))))) (* lambda1 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))))))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))))))) (- (* -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 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))))))))) (* 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 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))))))))))) (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))))))))))))))
(+.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 (cos.f64 lambda2) #s(literal -1 binary64))))))) (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(literal 0 binary64) lambda2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64))))))))) (.f64 lambda1 (.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) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)))))))) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda2))) (.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 (-.f64 #s(literal 0 binary64) lambda2)) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)))))))))) (.f64 lambda1 (.f64 (+.f64 (.f64 (.f64 #s(literal 1/12 binary64) (cos.f64 phi1)) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(literal 0 binary64) lambda2)))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(literal 0 binary64) lambda2))) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda2))) (.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 (-.f64 #s(literal 0 binary64) lambda2)) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64))))))))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64))))))))))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.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 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.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 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.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 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.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 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.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 (neg.f64 lambda1))) #s(literal -1 binary64)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.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 (neg.f64 lambda1))) #s(literal -1 binary64)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.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 (neg.f64 lambda1))) #s(literal -1 binary64)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.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 (neg.f64 lambda1))) #s(literal -1 binary64)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))))) (* 1/4 (* (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))))))))))
(+.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 (cos.f64 lambda1) #s(literal -1 binary64))))))) (.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 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64))))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))))) (* lambda2 (+ (* 1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda1))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))))))))) (* 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 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))))))))))))
(+.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 (cos.f64 lambda1) #s(literal -1 binary64))))))) (.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 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64))))))))) (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)))))))) (-.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 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64))))))))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))))) (* lambda2 (+ (* 1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda1))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))))))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))))))) (- (* -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 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))))))))) (* 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 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))))))))))) (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))))))))))))))
(+.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 (cos.f64 lambda1) #s(literal -1 binary64))))))) (.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 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64))))))))) (.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) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)))))))) (-.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 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64))))))))) (.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 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)))))))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64))))))))))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.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 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.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 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.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 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.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 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.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 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.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 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.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 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))
(+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi2) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))
(+ 1/2 (+ (* -1/2 (* phi1 (sin (neg phi2)))) (+ (* 1/2 (cos (neg phi2))) (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi2) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))) (.f64 (.f64 #s(literal -1/2 binary64) phi1) (sin.f64 (-.f64 #s(literal 0 binary64) phi2)))))
(+ 1/2 (+ (* 1/2 (cos (neg phi2))) (+ (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (* phi1 (+ (* -1/2 (sin (neg phi2))) (* phi1 (+ (* -1/4 (cos (neg phi2))) (* -1/4 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi2) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))) (.f64 phi1 (+.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 #s(literal 0 binary64) phi2))) (.f64 phi1 (.f64 #s(literal -1/4 binary64) (+.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi2) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))))
(+ 1/2 (+ (* 1/2 (cos (neg phi2))) (+ (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (* phi1 (+ (* -1/2 (sin (neg phi2))) (* phi1 (+ (* -1/4 (cos (neg phi2))) (+ (* -1/4 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (* 1/12 (* phi1 (sin (neg phi2))))))))))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi2) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))) (.f64 phi1 (+.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 #s(literal 0 binary64) phi2))) (.f64 phi1 (+.f64 (.f64 #s(literal -1/4 binary64) (+.f64 (cos.f64 phi2) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))) (.f64 (*.f64 #s(literal 1/12 binary64) phi1) (sin.f64 (-.f64 #s(literal 0 binary64) phi2)))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))
(+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (neg.f64 (+.f64 phi2 (neg.f64 phi1)))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))
(+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (neg.f64 (+.f64 phi2 (neg.f64 phi1)))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))
(+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (neg.f64 (+.f64 phi2 (neg.f64 phi1)))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))
(+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (neg.f64 (+.f64 phi2 (neg.f64 phi1)))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))
(+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1)))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))
(+ 1/2 (+ (* 1/2 (cos phi1)) (+ (* 1/2 (* phi2 (sin phi1))) (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))
(+ 1/2 (+ (* 1/2 (cos phi1)) (+ (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (* phi2 (+ (* 1/2 (sin phi1)) (* phi2 (+ (* -1/4 (cos phi1)) (* -1/4 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))))))))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))) (.f64 phi2 (+.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 phi1)) (.f64 phi2 (.f64 #s(literal -1/4 binary64) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))))
(+ 1/2 (+ (* 1/2 (cos phi1)) (+ (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (* phi2 (+ (* 1/2 (sin phi1)) (* phi2 (+ (* -1/4 (cos phi1)) (+ (* -1/4 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (* -1/12 (* phi2 (sin phi1)))))))))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))) (.f64 phi2 (+.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 phi1)) (.f64 phi2 (+.f64 (.f64 #s(literal -1/4 binary64) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))) (.f64 (*.f64 phi2 (sin.f64 phi1)) #s(literal -1/12 binary64))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))
(+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))
(+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))
(+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))
(+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1))))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64))))))
(+ 1/2 (+ (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64))))) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 lambda1 (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(literal 0 binary64) lambda2)))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/4 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64))))) (.f64 lambda1 (+.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(literal 0 binary64) lambda2)))) (.f64 (.f64 #s(literal -1/4 binary64) lambda1) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda2)))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/12 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))))))))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64))))) (.f64 lambda1 (+.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(literal 0 binary64) lambda2)))) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda2))) (.f64 #s(literal 1/12 binary64) (.f64 (.f64 lambda1 (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(literal 0 binary64) lambda2)))))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))
(+.f64 #s(literal 1/2 binary64) (.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 (neg.f64 lambda1))) #s(literal -1 binary64))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))
(+.f64 #s(literal 1/2 binary64) (.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 (neg.f64 lambda1))) #s(literal -1 binary64))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))
(+.f64 #s(literal 1/2 binary64) (.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 (neg.f64 lambda1))) #s(literal -1 binary64))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1))))))
(+.f64 #s(literal 1/2 binary64) (.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 (neg.f64 lambda1))) #s(literal -1 binary64))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1))))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (+ (* 1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))))))
(+.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 (.f64 (.f64 lambda2 (cos.f64 phi1)) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))) (* lambda2 (+ (* -1/4 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* 1/2 (* (cos phi1) (* (cos phi2) (sin lambda1)))))))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64))))) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (.f64 lambda2 (cos.f64 lambda1)) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (sin.f64 lambda1)))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))) (* lambda2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* lambda2 (+ (* -1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/12 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))))))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64))))) (.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))))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1))))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.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 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 lambda1)) #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 (sin 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 lambda1 lambda2))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi2 (neg.f64 phi1)))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (neg.f64 (+.f64 phi2 (neg.f64 phi1)))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) (-.f64 (.f64 lambda2 (sin.f64 lambda1)) #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 (sin 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 lambda1 lambda2))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi2 (neg.f64 phi1)))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (neg.f64 (+.f64 phi2 (neg.f64 phi1)))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) (-.f64 (.f64 lambda2 (sin.f64 lambda1)) #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 (sin 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 lambda1 lambda2))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi2 (neg.f64 phi1)))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (neg.f64 (+.f64 phi2 (neg.f64 phi1)))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) (-.f64 (.f64 lambda2 (sin.f64 lambda1)) #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 (sin 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 lambda1 lambda2))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi2 (neg.f64 phi1)))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (neg.f64 (+.f64 phi2 (neg.f64 phi1)))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (cos lambda1) (* lambda2 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (cos lambda1) (* lambda2 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (cos lambda1) (* lambda2 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* 1/2 (* (cos phi1) (* (cos phi2) (- (+ (cos lambda1) (* lambda2 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 lambda1) (* lambda2 (sin 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 (neg.f64 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 lambda1) (* lambda2 (sin 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 (neg.f64 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 lambda1) (* lambda2 (sin 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 (neg.f64 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 lambda1) (* lambda2 (sin 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 (neg.f64 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 lambda1)) #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) (* lambda2 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 lambda1)) #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) (* lambda2 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 lambda1)) #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) (* lambda2 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 lambda1)) #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) (* lambda2 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 lambda1)) #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 (sin 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 lambda1 lambda2))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi2 (neg.f64 phi1)))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (neg.f64 (+.f64 phi2 (neg.f64 phi1)))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) (-.f64 (.f64 lambda2 (sin.f64 lambda1)) #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 (sin 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 lambda1 lambda2))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi2 (neg.f64 phi1)))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (neg.f64 (+.f64 phi2 (neg.f64 phi1)))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) (-.f64 (.f64 lambda2 (sin.f64 lambda1)) #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 (sin 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 lambda1 lambda2))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi2 (neg.f64 phi1)))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (neg.f64 (+.f64 phi2 (neg.f64 phi1)))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) (-.f64 (.f64 lambda2 (sin.f64 lambda1)) #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 (sin 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 lambda1 lambda2))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi2 (neg.f64 phi1)))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (neg.f64 (+.f64 phi2 (neg.f64 phi1)))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 lambda1)) #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 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 lambda1)) #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 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 lambda1)) #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 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 lambda1)) #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 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 lambda1) (* lambda2 (sin 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 (neg.f64 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 lambda1) (* lambda2 (sin 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 (neg.f64 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 lambda1) (* lambda2 (sin 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 (neg.f64 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 lambda1) (* lambda2 (sin 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 (neg.f64 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 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 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 lambda1)) #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) (* lambda2 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 lambda1)) #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) (* lambda2 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 lambda1)) #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) (* lambda2 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 lambda1)) #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) (* lambda2 (sin 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 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 lambda1) (-.f64 (.f64 lambda2 (sin.f64 lambda1)) #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 (sin.f64 (-.f64 #s(literal 0 binary64) 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) (sin.f64 (-.f64 #s(literal 0 binary64) 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 (sin.f64 (-.f64 #s(literal 0 binary64) 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) (sin.f64 (-.f64 #s(literal 0 binary64) 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 (sin.f64 (-.f64 #s(literal 0 binary64) phi2)) #s(literal 1/12 binary64)) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 (sin.f64 (-.f64 #s(literal 0 binary64) 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 (sin.f64 (-.f64 #s(literal 0 binary64) 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 (sin.f64 (-.f64 #s(literal 0 binary64) 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 (neg.f64 (+.f64 phi2 (neg.f64 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 (neg.f64 (+.f64 phi2 (neg.f64 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 (neg.f64 (+.f64 phi2 (neg.f64 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 (neg.f64 (+.f64 phi2 (neg.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 (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 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 #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) (- 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 #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 #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)))))) (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 #s(literal 1/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 (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 #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) (sin.f64 (-.f64 #s(literal 0 binary64) 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 (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 #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 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(literal 0 binary64) 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 (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 #s(literal 1/4 binary64) (cos.f64 phi1)) (.f64 (cos.f64 phi2) (cos.f64 lambda2))) (.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 (-.f64 #s(literal 0 binary64) 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 (- (+ 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 #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 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(literal 0 binary64) 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 (-.f64 #s(literal 0 binary64) lambda2)))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(literal 0 binary64) lambda2))) (+.f64 (.f64 (.f64 #s(literal 1/4 binary64) (cos.f64 phi1)) (.f64 (cos.f64 phi2) (cos.f64 lambda2))) (.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 (-.f64 #s(literal 0 binary64) 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 (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 #s(literal 1/4 binary64) (cos.f64 phi1)) (.f64 (cos.f64 phi2) (cos.f64 lambda2))) (.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 (-.f64 #s(literal 0 binary64) 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 (- (+ 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 (neg.f64 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 (neg.f64 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 (neg.f64 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 (neg.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)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (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 (cos.f64 phi1) (.f64 (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 (cos.f64 phi1) (.f64 (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 (cos.f64 phi1) (.f64 (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 (cos.f64 phi1) (.f64 (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/2 binary64) (.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 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (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 (cos.f64 phi1) (.f64 (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 (cos.f64 phi1) (.f64 (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 (cos.f64 phi1) (.f64 (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 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (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 (cos.f64 phi1) (.f64 (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 (cos.f64 phi1) (.f64 (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 (cos.f64 phi1) (.f64 (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 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (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 (sin.f64 (-.f64 #s(literal 0 binary64) 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 (-.f64 #s(literal 0 binary64) 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 #s(literal -1/12 binary64) phi1) (sin.f64 (-.f64 #s(literal 0 binary64) phi2))) (.f64 #s(literal 1/4 binary64) (cos.f64 phi2))))) (.f64 #s(literal 1/2 binary64) (sin.f64 (-.f64 #s(literal 0 binary64) 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 (neg.f64 (+.f64 phi2 (neg.f64 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 (neg.f64 (+.f64 phi2 (neg.f64 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 (neg.f64 (+.f64 phi2 (neg.f64 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 (neg.f64 (+.f64 phi2 (neg.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 (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 #s(literal 1/12 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal 1/4 binary64) (cos.f64 phi1))))) (.f64 #s(literal -1/2 binary64) (sin.f64 phi1))))) (*.f64 (cos.f64 phi1) #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 #s(literal 1/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 (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) (sin.f64 (-.f64 #s(literal 0 binary64) 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 (.f64 #s(literal 1/4 binary64) lambda1) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda2))) (.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(literal 0 binary64) 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) (sin.f64 (-.f64 #s(literal 0 binary64) lambda2)))) (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal 1/4 binary64) (cos.f64 phi1)) (.f64 (cos.f64 phi2) (cos.f64 lambda2))) (.f64 #s(literal -1/12 binary64) (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(literal 0 binary64) 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 (neg.f64 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 (neg.f64 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 (neg.f64 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 (neg.f64 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 (cos.f64 phi1) (.f64 (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 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda1))))) (.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) (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 #s(literal 1/2 binary64) (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (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 (cos.f64 phi1) (.f64 (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 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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 (+ phi2 (* -1 phi1)))) 2))) (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* -1/2 (+ phi2 (* -1 phi1)))) 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 (neg.f64 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (+.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)))) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (neg.f64 phi1)))) #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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* -1/2 (+ phi2 (* -1 phi1)))) 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 (neg.f64 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (+.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)))) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (neg.f64 phi1)))) #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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* -1/2 (+ phi2 (* -1 phi1)))) 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 (neg.f64 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (+.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)))) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (neg.f64 phi1)))) #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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* -1/2 (+ phi2 (* -1 phi1)))) 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 (neg.f64 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (+.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)))) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (neg.f64 phi1)))) #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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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 (* -1 phi2)))) 2))) (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (+ phi1 (* -1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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 (* -1 phi2)))) 2))) (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (+ phi1 (* -1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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 (* -1 phi2)))) 2))) (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (+ phi1 (* -1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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 (* -1 phi2)))) 2))) (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (+ phi1 (* -1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))) (pow (cos (* 1/2 (- phi1 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 lambda2 (neg.f64 lambda1)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (+.f64 lambda2 (neg.f64 lambda1))) #s(literal -1 binary64)))) (pow.f64 (cos.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 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))) (pow (cos (* 1/2 (- phi1 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 lambda2 (neg.f64 lambda1)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (+.f64 lambda2 (neg.f64 lambda1))) #s(literal -1 binary64)))) (pow.f64 (cos.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 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))) (pow (cos (* 1/2 (- phi1 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 lambda2 (neg.f64 lambda1)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (+.f64 lambda2 (neg.f64 lambda1))) #s(literal -1 binary64)))) (pow.f64 (cos.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 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))) (pow (cos (* 1/2 (- phi1 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 lambda2 (neg.f64 lambda1)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (+.f64 lambda2 (neg.f64 lambda1))) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* -1/2 (+ phi2 (* -1 phi1)))) 2)))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (neg.f64 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (+.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)))) (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 phi2 (neg.f64 phi1)))) #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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* -1/2 (+ phi2 (* -1 phi1)))) 2)))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (neg.f64 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (+.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)))) (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 phi2 (neg.f64 phi1)))) #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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* -1/2 (+ phi2 (* -1 phi1)))) 2)))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (neg.f64 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (+.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)))) (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 phi2 (neg.f64 phi1)))) #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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* -1/2 (+ phi2 (* -1 phi1)))) 2)))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (neg.f64 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (+.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)))) (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 phi2 (neg.f64 phi1)))) #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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (+ phi1 (* -1 phi2)))) 2)))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (+ phi1 (* -1 phi2)))) 2)))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (+ phi1 (* -1 phi2)))) 2)))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (+ phi1 (* -1 phi2)))) 2)))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (+.f64 lambda2 (neg.f64 lambda1))) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (+.f64 lambda2 (neg.f64 lambda1))) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (+.f64 lambda2 (neg.f64 lambda1))) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (+.f64 lambda2 (neg.f64 lambda1))) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* -1/2 (+ phi2 (* -1 phi1)))) 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 (neg.f64 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (+.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)))) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (neg.f64 phi1)))) #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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* -1/2 (+ phi2 (* -1 phi1)))) 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 (neg.f64 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (+.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)))) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (neg.f64 phi1)))) #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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* -1/2 (+ phi2 (* -1 phi1)))) 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 (neg.f64 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (+.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)))) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (neg.f64 phi1)))) #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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* -1/2 (+ phi2 (* -1 phi1)))) 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 (neg.f64 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (+.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)))) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (neg.f64 phi1)))) #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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (+ phi1 (* -1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (+ phi1 (* -1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (+ phi1 (* -1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (+ phi1 (* -1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))) (pow (cos (* 1/2 (- phi1 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 lambda2 (neg.f64 lambda1)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (+.f64 lambda2 (neg.f64 lambda1))) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))) (pow (cos (* 1/2 (- phi1 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 lambda2 (neg.f64 lambda1)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (+.f64 lambda2 (neg.f64 lambda1))) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))) (pow (cos (* 1/2 (- phi1 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 lambda2 (neg.f64 lambda1)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (+.f64 lambda2 (neg.f64 lambda1))) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))) (pow (cos (* 1/2 (- phi1 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 lambda2 (neg.f64 lambda1)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (+.f64 lambda2 (neg.f64 lambda1))) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.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/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))) (pow (cos (* 1/2 (- phi1 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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
(sqrt (+ (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* -1/2 phi2)) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))
(+ (sqrt (+ (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* -1/2 phi2)) 2))) (* -1/2 (* (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (sqrt (/ 1 (+ (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* -1/2 phi2)) 2)))))))
(+.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (pow.f64 (cos.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 (.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (pow.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))))
(+ (sqrt (+ (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* -1/2 phi2)) 2))) (* phi1 (+ (* -1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* -1/2 phi2)) 2)))))) (* 1/2 (* (* phi1 (- (+ (* -1/4 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (+ (* -1/4 (pow (cos (* -1/2 phi2)) 2)) (* 1/4 (pow (sin (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* -1/2 phi2)) 2)))))))))
(+.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (pow.f64 (cos.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 (.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (pow.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (pow.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 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/4 binary64) (pow.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) #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) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (+.f64 (.f64 (.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))))))))
(+ (sqrt (+ (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* -1/2 phi2)) 2))) (* phi1 (+ (* -1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* -1/2 phi2)) 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* -1/2 phi2)) 2)))) (- (+ (* -1/4 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (+ (* -1/4 (pow (cos (* -1/2 phi2)) 2)) (* 1/4 (pow (sin (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* -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/4 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (+ (* -1/4 (pow (cos (* -1/2 phi2)) 2)) (* 1/4 (pow (sin (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* -1/2 phi2)) 2))))))) (+ (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* -1/2 phi2)) 2)))))))))))
(+.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (pow.f64 (cos.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 (.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (pow.f64 (cos.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 (.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (pow.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 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/4 binary64) (pow.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) #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) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (+.f64 (.f64 (.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (pow.f64 (cos.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/4 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (+.f64 (.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) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (+.f64 (.f64 (.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (pow.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))) (+.f64 (.f64 (.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (pow.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))))))))))
(sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.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)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.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)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.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)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.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)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt.f64 (+.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)))) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (neg.f64 phi1)))) #s(literal 2 binary64))))
(sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt.f64 (+.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)))) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (neg.f64 phi1)))) #s(literal 2 binary64))))
(sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt.f64 (+.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)))) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (neg.f64 phi1)))) #s(literal 2 binary64))))
(sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt.f64 (+.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)))) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (neg.f64 phi1)))) #s(literal 2 binary64))))
(sqrt (+ (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* 1/2 phi1)) 2)))
(sqrt.f64 (+.f64 (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)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))
(+ (sqrt (+ (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* 1/2 phi1)) 2))) (* 1/2 (* (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (sqrt (/ 1 (+ (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* 1/2 phi1)) 2)))))))
(+.f64 (sqrt.f64 (+.f64 (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)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))) (.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 phi2 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (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)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(+ (sqrt (+ (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* 1/2 phi1)) 2))) (* phi2 (+ (* 1/2 (* (* phi2 (- (+ (* -1/4 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* 1/2 phi1)) 2)))))) (* 1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* 1/2 phi1)) 2)))))))))
(+.f64 (sqrt.f64 (+.f64 (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)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))) (.f64 phi2 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 phi2 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (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)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 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/4 binary64) (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.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) (.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 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))) (.f64 (.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 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))))
(+ (sqrt (+ (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* 1/2 phi1)) 2))) (* phi2 (+ (* 1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* 1/2 phi1)) 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* 1/2 phi1)) 2)))) (- (+ (* -1/4 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* 1/2 phi1)) 2))))))) (* 1/2 (* (* phi2 (- (+ (* -1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* -1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (* 1/2 (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (- (+ (* -1/4 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (+ (* -1/4 (pow (cos (* 1/2 phi1)) 2)) (* 1/4 (pow (sin (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* 1/2 phi1)) 2))))))) (+ (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* 1/2 (* (cos phi1) (- (cos (- lambda1 lambda2)) 1))) (pow (cos (* 1/2 phi1)) 2)))))))))))
(+.f64 (sqrt.f64 (+.f64 (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)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 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 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))) (.f64 phi2 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (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)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 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/4 binary64) (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.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) (.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 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 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/4 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (+.f64 (.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) (pow.f64 (sin.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 (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)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))) (+.f64 (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)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (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)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))))))))
(sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.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)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.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)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.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)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.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)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt.f64 (+.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)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt.f64 (+.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)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt.f64 (+.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)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt.f64 (+.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)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(+ (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2))) (* -1/4 (* (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (sqrt (/ 1 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))))
(+.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(literal 0 binary64) lambda2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(+ (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))) (sqrt (/ 1 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))) (* 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 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))))))
(+.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(literal 0 binary64) lambda2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda2))) (.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 (-.f64 #s(literal 0 binary64) lambda2)) #s(literal 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)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))))))
(+ (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))) (sqrt (/ 1 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 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 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2))))))) (* 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 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))))) (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))))))))
(+.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(literal 0 binary64) lambda2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 lambda1 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda2))) (.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 (-.f64 #s(literal 0 binary64) lambda2)) #s(literal 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)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (.f64 lambda1 (.f64 (+.f64 (.f64 (.f64 #s(literal 1/12 binary64) (cos.f64 phi1)) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(literal 0 binary64) lambda2)))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(literal 0 binary64) lambda2))) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda2))) (.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 (-.f64 #s(literal 0 binary64) lambda2)) #s(literal 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)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64)))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))))))
(sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.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)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.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)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.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)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.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)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (+.f64 lambda2 (neg.f64 lambda1))) #s(literal -1 binary64)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (+.f64 lambda2 (neg.f64 lambda1))) #s(literal -1 binary64)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (+.f64 lambda2 (neg.f64 lambda1))) #s(literal -1 binary64)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (+.f64 lambda2 (neg.f64 lambda1))) #s(literal -1 binary64)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(+ (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2))) (* 1/4 (* (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (sqrt (/ 1 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))))
(+.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(+ (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* 1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda1))) (sqrt (/ 1 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))) (* 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 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))))))
(+.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (-.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 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))))
(+ (sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* 1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda1))) (sqrt (/ 1 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 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 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2))))))) (* 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 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))))) (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))))))))))
(+.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 lambda2 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (-.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 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.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 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))))))
(sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.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)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.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)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.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)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.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)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.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)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.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)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.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)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))) (pow (cos (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.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)))) (pow.f64 (cos.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 (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* -1/2 (+ phi2 (* -1 phi1)))) (sin (* 1/2 (- phi2 (* -1 phi1)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (neg.f64 phi1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 (.f64 #s(literal 1 binary64) phi1)))))) (.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi2 (neg.f64 phi1)))))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* -1/2 (+ phi2 (* -1 phi1)))) (sin (* 1/2 (- phi2 (* -1 phi1)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (neg.f64 phi1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 (.f64 #s(literal 1 binary64) phi1)))))) (.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi2 (neg.f64 phi1)))))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* -1/2 (+ phi2 (* -1 phi1)))) (sin (* 1/2 (- phi2 (* -1 phi1)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (neg.f64 phi1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 (.f64 #s(literal 1 binary64) phi1)))))) (.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi2 (neg.f64 phi1)))))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* -1/2 (+ phi2 (* -1 phi1)))) (sin (* 1/2 (- phi2 (* -1 phi1)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (neg.f64 phi1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 (.f64 #s(literal 1 binary64) phi1)))))) (.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi2 (neg.f64 phi1)))))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 (* -1 phi2)))) (sin (* 1/2 (- phi1 (* -1 phi2)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal 1 binary64) phi2)))))) (.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 (* -1 phi2)))) (sin (* 1/2 (- phi1 (* -1 phi2)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal 1 binary64) phi2)))))) (.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 (* -1 phi2)))) (sin (* 1/2 (- phi1 (* -1 phi2)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal 1 binary64) phi2)))))) (.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 (* -1 phi2)))) (sin (* 1/2 (- phi1 (* -1 phi2)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal 1 binary64) phi2)))))) (.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))))))))
(.f64 #s(literal 2 binary64) (.f64 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 lambda2 (neg.f64 lambda1)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 #s(literal 1/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 (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/2 binary64) (+.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1))))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))))))))
(.f64 #s(literal 2 binary64) (.f64 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 lambda2 (neg.f64 lambda1)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 #s(literal 1/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 (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/2 binary64) (+.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1))))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))))))))
(.f64 #s(literal 2 binary64) (.f64 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 lambda2 (neg.f64 lambda1)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 #s(literal 1/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 (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/2 binary64) (+.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1))))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))))))))
(.f64 #s(literal 2 binary64) (.f64 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 lambda2 (neg.f64 lambda1)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 #s(literal 1/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 (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/2 binary64) (+.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1))))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))))))))
(.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 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))))))))
(.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 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))))))))
(.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 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))))))))
(.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 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(.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 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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)))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* -1/2 (+ phi2 (* -1 phi1)))) (sin (* 1/2 (- phi2 (* -1 phi1)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (neg.f64 phi1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 (.f64 #s(literal 1 binary64) phi1)))))) (.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi2 (neg.f64 phi1)))))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* -1/2 (+ phi2 (* -1 phi1)))) (sin (* 1/2 (- phi2 (* -1 phi1)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (neg.f64 phi1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 (.f64 #s(literal 1 binary64) phi1)))))) (.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi2 (neg.f64 phi1)))))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* -1/2 (+ phi2 (* -1 phi1)))) (sin (* 1/2 (- phi2 (* -1 phi1)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (neg.f64 phi1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 (.f64 #s(literal 1 binary64) phi1)))))) (.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi2 (neg.f64 phi1)))))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* -1/2 (+ phi2 (* -1 phi1)))) (sin (* 1/2 (- phi2 (* -1 phi1)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (neg.f64 phi1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 (.f64 #s(literal 1 binary64) phi1)))))) (.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi2 (neg.f64 phi1)))))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 (* -1 phi2)))) (sin (* 1/2 (- phi1 (* -1 phi2)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal 1 binary64) phi2)))))) (.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 (* -1 phi2)))) (sin (* 1/2 (- phi1 (* -1 phi2)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal 1 binary64) phi2)))))) (.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 (* -1 phi2)))) (sin (* 1/2 (- phi1 (* -1 phi2)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal 1 binary64) phi2)))))) (.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 (* -1 phi2)))) (sin (* 1/2 (- phi1 (* -1 phi2)))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal 1 binary64) phi2)))))) (.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 #s(literal 1/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 (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/2 binary64) (+.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1))))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 #s(literal 1/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 (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/2 binary64) (+.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1))))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 #s(literal 1/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 (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/2 binary64) (+.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1))))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 #s(literal 1/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 (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/2 binary64) (+.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1))))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* 1/2 (+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- phi1 phi2))))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) #s(literal 1/2 binary64))) (.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))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))) (* -1/4 (* (* phi1 (sin (neg phi2))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(+.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) #s(literal 1/2 binary64))) (.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 (.f64 #s(literal -1/4 binary64) (.f64 phi1 (sin.f64 (-.f64 #s(literal 0 binary64) phi2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) #s(literal 1/2 binary64))) (.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)))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))) (* phi1 (+ (* -1/4 (* (sin (neg phi2)) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))) (* 1/2 (* (* phi1 (- (+ (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (* -1/4 (cos (neg phi2)))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))))
(+.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) #s(literal 1/2 binary64))) (.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 (.f64 #s(literal -1/4 binary64) (sin.f64 (-.f64 #s(literal 0 binary64) phi2))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) #s(literal 1/2 binary64))) (.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 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) #s(literal 1/2 binary64))) (.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 (+.f64 (.f64 #s(literal -1/2 binary64) (.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 (cos.f64 phi2) #s(literal -1/4 binary64))) (/.f64 (.f64 #s(literal 1/16 binary64) (pow.f64 (sin.f64 (-.f64 #s(literal 0 binary64) phi2)) #s(literal 2 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) #s(literal 1/2 binary64))) (.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)))))))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))) (* phi1 (+ (* -1/4 (* (sin (neg phi2)) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))) (- (+ (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (* -1/4 (cos (neg phi2)))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))))) (* 1/2 (* (* phi1 (- (* 1/12 (sin (neg phi2))) (* -1/4 (/ (* (sin (neg phi2)) (- (+ (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (* -1/4 (cos (neg phi2)))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))) (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))))))
(+.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) #s(literal 1/2 binary64))) (.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 (.f64 #s(literal -1/4 binary64) (sin.f64 (-.f64 #s(literal 0 binary64) phi2))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) #s(literal 1/2 binary64))) (.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 #s(literal 1/2 binary64) (+.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) #s(literal 1/2 binary64))) (.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 (+.f64 (.f64 #s(literal -1/2 binary64) (.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 (cos.f64 phi2) #s(literal -1/4 binary64))) (/.f64 (.f64 #s(literal 1/16 binary64) (pow.f64 (sin.f64 (-.f64 #s(literal 0 binary64) phi2)) #s(literal 2 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) #s(literal 1/2 binary64))) (.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 (.f64 (sin.f64 (-.f64 #s(literal 0 binary64) phi2)) #s(literal 1/12 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (sin.f64 (-.f64 #s(literal 0 binary64) phi2)) (-.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.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 (cos.f64 phi2) #s(literal -1/4 binary64))) (/.f64 (.f64 #s(literal 1/16 binary64) (pow.f64 (sin.f64 (-.f64 #s(literal 0 binary64) phi2)) #s(literal 2 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) #s(literal 1/2 binary64))) (.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 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) #s(literal 1/2 binary64))) (.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)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) #s(literal 1/2 binary64))) (.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)))))))))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (.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)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (.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)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (.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)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (.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)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi2 (neg.f64 phi1)))))) (.f64 (cos.f64 phi1) (.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)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi2 (neg.f64 phi1)))))) (.f64 (cos.f64 phi1) (.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)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi2 (neg.f64 phi1)))))) (.f64 (cos.f64 phi1) (.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)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi2 (neg.f64 phi1)))))) (.f64 (cos.f64 phi1) (.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)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))) (* 1/4 (* (* phi2 (sin phi1)) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))
(+.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 phi2 (sin.f64 phi1))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))) (* phi2 (+ (* 1/4 (* (sin phi1) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))) (* 1/2 (* (* phi2 (- (+ (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (* -1/4 (cos phi1))) (* 1/16 (/ (pow (sin phi1) 2) (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))))
(+.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 phi2 (+.f64 (.f64 (.f64 #s(literal 1/4 binary64) (sin.f64 phi1)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))))) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))) (-.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (.f64 (cos.f64 phi1) #s(literal -1/4 binary64))) (/.f64 (.f64 #s(literal 1/16 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))) (* phi2 (+ (* 1/4 (* (sin phi1) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))) (- (+ (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (* -1/4 (cos phi1))) (* 1/16 (/ (pow (sin phi1) 2) (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))))) (* 1/2 (* (* phi2 (- (* -1/12 (sin phi1)) (* 1/4 (/ (* (sin phi1) (- (+ (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (* -1/4 (cos phi1))) (* 1/16 (/ (pow (sin phi1) 2) (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))) (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))))))))))
(+.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 phi2 (+.f64 (.f64 (.f64 #s(literal 1/4 binary64) (sin.f64 phi1)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))))) (.f64 phi2 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))) (-.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (.f64 (cos.f64 phi1) #s(literal -1/4 binary64))) (/.f64 (.f64 #s(literal 1/16 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))))) (.f64 phi2 (.f64 (+.f64 (.f64 (sin.f64 phi1) #s(literal -1/12 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (.f64 (cos.f64 phi1) #s(literal -1/4 binary64))) (/.f64 (.f64 #s(literal 1/16 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))))) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))))))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (.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)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (.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)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (.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)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (.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)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (.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)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (.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)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (.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)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (.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)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))
(sqrt.f64 (+.f64 #s(literal 1/2 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)))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (* 1/2 (* (* 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)))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 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)))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (.f64 (.f64 #s(literal 1/2 binary64) (.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 #s(literal 1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 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)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (* lambda1 (+ (* 1/2 (* (* 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))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))) 2))) (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 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)))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (.f64 lambda1 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 lambda1 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 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)))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (+.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 lambda2 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (.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) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 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)))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))) (.f64 (cos.f64 phi1) (.f64 (.f64 (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 #s(literal 1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 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)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (* lambda1 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -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))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))) 2))) (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))))))) (* 1/2 (* (* 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))))))))) (* 1/2 (/ (* (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) (+ (* -1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* -1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))) 2))) (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))))))) (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 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)))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (.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 #s(literal 1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 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)))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))) (.f64 lambda1 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 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)))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (+.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 lambda2 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (.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) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 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)))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))) (.f64 lambda1 (.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (+.f64 (.f64 (.f64 #s(literal -1/16 binary64) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal -1/48 binary64))) (.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)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (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 #s(literal 1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (+.f64 (.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 lambda2 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (.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) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 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)))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))) (+.f64 #s(literal 1/2 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)))) (.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 (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 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (.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)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (.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)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (.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)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (.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)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1))))))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1))))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1))))))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1))))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1))))))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1))))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1))))))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1))))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))
(sqrt.f64 (+.f64 #s(literal 1/2 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 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* 1/2 (* (* 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)))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 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 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (.f64 #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))) (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))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 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 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* lambda2 (+ (* 1/2 (* (* 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))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))) 2))) (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 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 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (.f64 lambda2 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 lambda2 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 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 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (+.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 lambda1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (.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) (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)))))) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 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 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))) (.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 #s(literal 1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 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 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* lambda2 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -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))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))) 2))) (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))))))) (* 1/2 (* (* 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))))))))) (* 1/2 (/ (* (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) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))) 2))) (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))))))) (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 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 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (.f64 lambda2 (+.f64 (.f64 #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))) (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))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 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 #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 (.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 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (+.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 lambda1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (.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) (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)))))) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 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 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))) (.f64 lambda2 (.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.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) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 1/12 binary64))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (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 (.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 lambda1 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (.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) (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)))))) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 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 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))) (+.f64 #s(literal 1/2 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 #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 (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 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (.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)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (.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)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (.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)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (.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)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2))))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (.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)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2))))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (.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)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2))))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (.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)))))))
(sqrt (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2))))))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (.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)))))))
(+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) #s(literal 1/2 binary64))) (.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)))))
(+ 1/2 (+ (* -1/2 (* phi1 (sin (neg phi2)))) (+ (* 1/2 (cos (neg phi2))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) phi1) (sin.f64 (-.f64 #s(literal 0 binary64) phi2))) (.f64 (cos.f64 phi2) #s(literal 1/2 binary64))) (.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))))))
(+ 1/2 (+ (* 1/2 (cos (neg phi2))) (+ (* phi1 (+ (* -1/2 (sin (neg phi2))) (* phi1 (+ (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (* -1/4 (cos (neg phi2))))))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (cos.f64 phi2) #s(literal 1/2 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 #s(literal -1/2 binary64) (sin.f64 (-.f64 #s(literal 0 binary64) phi2))) (.f64 phi1 (+.f64 (.f64 #s(literal -1/2 binary64) (.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 (cos.f64 phi2) #s(literal -1/4 binary64)))))))))
(+ 1/2 (+ (* 1/2 (cos (neg phi2))) (+ (* phi1 (+ (* -1/2 (sin (neg phi2))) (* phi1 (+ (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (cos (neg phi2))) (* 1/12 (* phi1 (sin (neg phi2))))))))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) #s(literal 1/2 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 #s(literal -1/2 binary64) (sin.f64 (-.f64 #s(literal 0 binary64) phi2))) (.f64 phi1 (+.f64 (.f64 #s(literal -1/2 binary64) (.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 (.f64 (cos.f64 phi2) #s(literal -1/4 binary64)) (.f64 (.f64 #s(literal 1/12 binary64) phi1) (sin.f64 (-.f64 #s(literal 0 binary64) phi2))))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))
(+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi2 (neg.f64 phi1)))))) (.f64 (cos.f64 phi1) (.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))))))
(+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi2 (neg.f64 phi1)))))) (.f64 (cos.f64 phi1) (.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))))))
(+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi2 (neg.f64 phi1)))))) (.f64 (cos.f64 phi1) (.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))))))
(+ 1/2 (+ (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi2 (neg.f64 phi1)))))) (.f64 (cos.f64 phi1) (.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))))))
(+ 1/2 (+ (* 1/2 (cos phi1)) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(+ 1/2 (+ (* 1/2 (cos phi1)) (+ (* 1/2 (* phi2 (sin phi1))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (sin.f64 phi1)))) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))
(+ 1/2 (+ (* 1/2 (cos phi1)) (+ (* phi2 (+ (* 1/2 (sin phi1)) (* phi2 (+ (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (* -1/4 (cos phi1)))))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) (+.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (.f64 phi2 (+.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 phi1)) (.f64 phi2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (.f64 (cos.f64 phi1) #s(literal -1/4 binary64))))))))
(+ 1/2 (+ (* 1/2 (cos phi1)) (+ (* phi2 (+ (* 1/2 (sin phi1)) (* phi2 (+ (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (cos phi1)) (* -1/12 (* phi2 (sin phi1)))))))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) (+.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (.f64 phi2 (+.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 phi1)) (.f64 phi2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/4 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/12 binary64)))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))
(+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))
(+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))
(+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))
(+ 1/2 (+ (* 1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))
(+.f64 #s(literal 1/2 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)))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (+ (* 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))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (+.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 #s(literal 1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (+ (* 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))))))))
(+.f64 #s(literal 1/2 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 #s(literal 1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (.f64 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 lambda2 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (+ (* 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))))))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (.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 #s(literal 1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (.f64 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 lambda2 #s(literal -1/2 binary64)))) (.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 #s(literal -1/16 binary64) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal -1/48 binary64))) (.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)))))))))) (.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))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1))))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1))))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1))))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1))))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))
(+.f64 #s(literal 1/2 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 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (+ (* 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))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (+.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 #s(literal 1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (+ (* 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))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (+.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 #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 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 lambda1 #s(literal -1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (+ (* 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))))))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (.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 #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 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 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 #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) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))))) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 1/12 binary64))))))))))) (.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))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))
(+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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))))))
(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 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal -1/8 binary64)) (.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 (.f64 #s(literal 1 binary64) lambda1))))
(sin (* 1/2 (- lambda2 (* -1 lambda1))))
(sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 (.f64 #s(literal 1 binary64) lambda1))))
(sin (* 1/2 (- lambda2 (* -1 lambda1))))
(sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 (.f64 #s(literal 1 binary64) lambda1))))
(sin (* 1/2 (- lambda2 (* -1 lambda1))))
(sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 (.f64 #s(literal 1 binary64) 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 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal -1/8 binary64)) (.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 (-.f64 #s(literal 0 binary64) lambda2))))
(sin (* 1/2 (- lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 (-.f64 #s(literal 0 binary64) lambda2))))
(sin (* 1/2 (- lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 (-.f64 #s(literal 0 binary64) lambda2))))
(sin (* 1/2 (- lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 (-.f64 #s(literal 0 binary64) 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 (neg.f64 lambda1))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (neg.f64 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 (.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 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal -1/8 binary64)) (.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 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 (.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 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal -1/8 binary64)) (.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 (neg.f64 lambda1))))
(sin (* 1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1))))
(sin (* 1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1))))
(sin (* 1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 (neg.f64 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 (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64))) #s(literal -1/8 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 (sin (* -1/2 lambda2)))
(/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))
(+ (* -1/2 (/ (* lambda1 (cos (* -1/2 lambda2))) (pow (sin (* -1/2 lambda2)) 2))) (/ 1 (sin (* -1/2 lambda2))))
(+.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))
(+ (* lambda1 (- (* lambda1 (- (* 1/8 (/ 1 (sin (* -1/2 lambda2)))) (* -1/4 (/ (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 3))))) (* 1/2 (/ (cos (* -1/2 lambda2)) (pow (sin (* -1/2 lambda2)) 2))))) (/ 1 (sin (* -1/2 lambda2))))
(+.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 lambda1 (+.f64 (.f64 lambda1 (+.f64 (/.f64 #s(literal 1/8 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (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 3 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))))
(+ (* lambda1 (- (* lambda1 (- (+ (* -1 (* lambda1 (+ (* -1/48 (/ (cos (* -1/2 lambda2)) (pow (sin (* -1/2 lambda2)) 2))) (+ (* 1/16 (/ (cos (* -1/2 lambda2)) (pow (sin (* -1/2 lambda2)) 2))) (* 1/2 (/ (* (cos (* -1/2 lambda2)) (- (* 1/8 (/ 1 (sin (* -1/2 lambda2)))) (* -1/4 (/ (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 3))))) (sin (* -1/2 lambda2)))))))) (* 1/8 (/ 1 (sin (* -1/2 lambda2))))) (* -1/4 (/ (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 3))))) (* 1/2 (/ (cos (* -1/2 lambda2)) (pow (sin (* -1/2 lambda2)) 2))))) (/ 1 (sin (* -1/2 lambda2))))
(+.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 lambda1 (+.f64 (.f64 lambda1 (+.f64 (.f64 (neg.f64 lambda1) (+.f64 (+.f64 (/.f64 (.f64 #s(literal -1/48 binary64) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (/.f64 (.f64 #s(literal 1/16 binary64) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (+.f64 (/.f64 #s(literal 1/8 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (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 3 binary64))))))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (+.f64 (/.f64 #s(literal 1/8 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (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 3 binary64))))))) (.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))))
(/ 1 (sin (* 1/2 (- lambda1 lambda2))))
(/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))
(/ 1 (sin (* 1/2 (- lambda1 lambda2))))
(/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))
(/ 1 (sin (* 1/2 (- lambda1 lambda2))))
(/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))
(/ 1 (sin (* 1/2 (- lambda1 lambda2))))
(/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))
(/ 1 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))))
(/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1)))))
(/ 1 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))))
(/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1)))))
(/ 1 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))))
(/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1)))))
(/ 1 (sin (* -1/2 (+ lambda2 (* -1 lambda1)))))
(/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1)))))
(/ 1 (sin (* 1/2 lambda1)))
(/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))
(+ (* 1/2 (/ (* lambda2 (cos (* 1/2 lambda1))) (pow (sin (* 1/2 lambda1)) 2))) (/ 1 (sin (* 1/2 lambda1))))
(+.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (/.f64 (.f64 (.f64 #s(literal 1/2 binary64) lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))
(+ (* lambda2 (- (* lambda2 (- (* 1/8 (/ 1 (sin (* 1/2 lambda1)))) (* -1/4 (/ (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 3))))) (* -1/2 (/ (cos (* 1/2 lambda1)) (pow (sin (* 1/2 lambda1)) 2))))) (/ 1 (sin (* 1/2 lambda1))))
(+.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 lambda2 (+.f64 (.f64 lambda2 (+.f64 (/.f64 #s(literal 1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 #s(literal 1/4 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 3 binary64)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))
(+ (* lambda2 (- (* lambda2 (- (+ (* -1 (* lambda2 (+ (* -1/2 (/ (* (cos (* 1/2 lambda1)) (- (* 1/8 (/ 1 (sin (* 1/2 lambda1)))) (* -1/4 (/ (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 3))))) (sin (* 1/2 lambda1)))) (+ (* -1/16 (/ (cos (* 1/2 lambda1)) (pow (sin (* 1/2 lambda1)) 2))) (* 1/48 (/ (cos (* 1/2 lambda1)) (pow (sin (* 1/2 lambda1)) 2))))))) (* 1/8 (/ 1 (sin (* 1/2 lambda1))))) (* -1/4 (/ (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 3))))) (* -1/2 (/ (cos (* 1/2 lambda1)) (pow (sin (* 1/2 lambda1)) 2))))) (/ 1 (sin (* 1/2 lambda1))))
(+.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 lambda2 (+.f64 (.f64 lambda2 (+.f64 (.f64 (-.f64 #s(literal 0 binary64) lambda2) (+.f64 (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 (/.f64 #s(literal 1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 #s(literal 1/4 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 3 binary64))))))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) #s(literal -1/24 binary64)))) (+.f64 (/.f64 #s(literal 1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 #s(literal 1/4 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 3 binary64))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))
(/ 1 (sin (* 1/2 (- lambda1 lambda2))))
(/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))
(/ 1 (sin (* 1/2 (- lambda1 lambda2))))
(/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))
(/ 1 (sin (* 1/2 (- lambda1 lambda2))))
(/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))
(/ 1 (sin (* 1/2 (- lambda1 lambda2))))
(/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))
(/ 1 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))
(/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))
(/ 1 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))
(/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))
(/ 1 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))
(/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))
(/ 1 (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))
(/.f64 #s(literal 1 binary64) (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 (neg.f64 phi1) (sin.f64 (-.f64 #s(literal 0 binary64) 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 (-.f64 #s(literal 0 binary64) 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) (sin.f64 (-.f64 #s(literal 0 binary64) phi2))) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)))) (sin.f64 (-.f64 #s(literal 0 binary64) 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 (neg.f64 (+.f64 phi2 (neg.f64 phi1))))
(cos (* -1 (+ phi2 (* -1 phi1))))
(cos.f64 (neg.f64 (+.f64 phi2 (neg.f64 phi1))))
(cos (* -1 (+ phi2 (* -1 phi1))))
(cos.f64 (neg.f64 (+.f64 phi2 (neg.f64 phi1))))
(cos (* -1 (+ phi2 (* -1 phi1))))
(cos.f64 (neg.f64 (+.f64 phi2 (neg.f64 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)) (.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 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))) (.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))
(- (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 (neg.f64 lambda1) (sin.f64 (-.f64 #s(literal 0 binary64) 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))) (sin.f64 (-.f64 #s(literal 0 binary64) 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) (sin.f64 (-.f64 #s(literal 0 binary64) lambda2))))) (sin.f64 (-.f64 #s(literal 0 binary64) 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 (neg.f64 lambda1))) #s(literal -1 binary64))
(- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)
(+.f64 (cos.f64 (+.f64 lambda2 (neg.f64 lambda1))) #s(literal -1 binary64))
(- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)
(+.f64 (cos.f64 (+.f64 lambda2 (neg.f64 lambda1))) #s(literal -1 binary64))
(- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)
(+.f64 (cos.f64 (+.f64 lambda2 (neg.f64 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 (.f64 lambda2 (sin.f64 lambda1)) #s(literal -1/6 binary64)))) (.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 (sin.f64 (-.f64 #s(literal 0 binary64) lambda2))) (cos.f64 lambda2)))
(- (+ 1 (* lambda1 (+ (sin (neg lambda2)) (* 1/2 (* lambda1 (cos (neg lambda2))))))) (cos (neg lambda2)))
(-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 (sin.f64 (-.f64 #s(literal 0 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (*.f64 lambda1 (cos.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 (sin.f64 (-.f64 #s(literal 0 binary64) lambda2)) (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal -1/6 binary64) lambda1) (sin.f64 (-.f64 #s(literal 0 binary64) lambda2))) (*.f64 #s(literal 1/2 binary64) (cos.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 (neg (+ lambda2 (* -1 lambda1)))))
(-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lambda2 (neg.f64 lambda1))))
(- 1 (cos (neg (+ lambda2 (* -1 lambda1)))))
(-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lambda2 (neg.f64 lambda1))))
(- 1 (cos (neg (+ lambda2 (* -1 lambda1)))))
(-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lambda2 (neg.f64 lambda1))))
(- 1 (cos (neg (+ lambda2 (* -1 lambda1)))))
(-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lambda2 (neg.f64 lambda1))))
(- 1 (cos lambda1))
(-.f64 #s(literal 1 binary64) (cos.f64 lambda1))
(- (+ 1 (* -1 (* lambda2 (sin lambda1)))) (cos lambda1))
(+.f64 #s(literal 1 binary64) (-.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 binary64) (sin.f64 lambda1)) (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (cos.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 #s(literal -1 binary64) (sin.f64 lambda1)) (.f64 lambda2 (+.f64 (.f64 (.f64 lambda2 (sin.f64 lambda1)) #s(literal 1/6 binary64)) (.f64 #s(literal 1/2 binary64) (cos.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 lambda2))
(cos.f64 lambda2)
(+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2)))))
(+.f64 (cos.f64 lambda2) (*.f64 (neg.f64 lambda1) (sin.f64 (-.f64 #s(literal 0 binary64) 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))) (sin.f64 (-.f64 #s(literal 0 binary64) 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) (sin.f64 (-.f64 #s(literal 0 binary64) lambda2))))) (sin.f64 (-.f64 #s(literal 0 binary64) 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 lambda2 (neg.f64 lambda1)))
(cos (neg (+ lambda2 (* -1 lambda1))))
(cos.f64 (+.f64 lambda2 (neg.f64 lambda1)))
(cos (neg (+ lambda2 (* -1 lambda1))))
(cos.f64 (+.f64 lambda2 (neg.f64 lambda1)))
(cos (neg (+ lambda2 (* -1 lambda1))))
(cos.f64 (+.f64 lambda2 (neg.f64 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 (.f64 lambda2 (sin.f64 lambda1)) #s(literal -1/6 binary64)))) (.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))
(* lambda1 lambda2)
(*.f64 lambda1 lambda2)
(* lambda1 (+ lambda2 (* -1/2 lambda1)))
(.f64 lambda1 (+.f64 lambda2 (.f64 lambda1 #s(literal -1/2 binary64))))
(* lambda1 (+ lambda2 (* lambda1 (- (* -1/6 (* lambda1 lambda2)) 1/2))))
(.f64 lambda1 (+.f64 lambda2 (.f64 lambda1 (+.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 lambda2)) #s(literal -1/2 binary64)))))
(* lambda1 (+ lambda2 (* lambda1 (- (* lambda1 (+ (* -1/6 lambda2) (* 1/24 lambda1))) 1/2))))
(.f64 lambda1 (+.f64 lambda2 (.f64 lambda1 (+.f64 (.f64 lambda1 (+.f64 (.f64 lambda2 #s(literal -1/6 binary64)) (*.f64 lambda1 #s(literal 1/24 binary64)))) #s(literal -1/2 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)
(+.f64 (cos.f64 lambda1) (-.f64 (*.f64 lambda2 (sin.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)
(+.f64 (cos.f64 lambda1) (-.f64 (*.f64 lambda2 (sin.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)
(+.f64 (cos.f64 lambda1) (-.f64 (*.f64 lambda2 (sin.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)
(+.f64 (cos.f64 lambda1) (-.f64 (*.f64 lambda2 (sin.f64 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 (sin lambda1))) 1)
(+.f64 (cos.f64 lambda1) (-.f64 (*.f64 lambda2 (sin.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)))
(* lambda2 (sin lambda1))
(*.f64 lambda2 (sin.f64 lambda1))
(* lambda2 (- (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/ 1 lambda2)))
(*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)) lambda2)))
(* lambda2 (- (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/ 1 lambda2)))
(*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)) lambda2)))
(* lambda2 (- (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/ 1 lambda2)))
(*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)) lambda2)))
(* lambda2 (sin lambda1))
(*.f64 lambda2 (sin.f64 lambda1))
(* -1 (* lambda2 (+ (* -1 (sin lambda1)) (* -1 (/ (- (cos lambda1) 1) lambda2)))))
(.f64 (-.f64 #s(literal 0 binary64) lambda2) (-.f64 (.f64 #s(literal -1 binary64) (sin.f64 lambda1)) (/.f64 (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)) lambda2)))
(* -1 (* lambda2 (+ (* -1 (sin lambda1)) (* -1 (/ (- (cos lambda1) 1) lambda2)))))
(.f64 (-.f64 #s(literal 0 binary64) lambda2) (-.f64 (.f64 #s(literal -1 binary64) (sin.f64 lambda1)) (/.f64 (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)) lambda2)))
(* -1 (* lambda2 (+ (* -1 (sin lambda1)) (* -1 (/ (- (cos lambda1) 1) lambda2)))))
(.f64 (-.f64 #s(literal 0 binary64) lambda2) (-.f64 (.f64 #s(literal -1 binary64) (sin.f64 lambda1)) (/.f64 (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)) lambda2)))
(- 1/2 (* 1/2 (cos (neg phi2))))
(+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)))
(- (+ 1/2 (* 1/2 (* phi1 (sin (neg phi2))))) (* 1/2 (cos (neg phi2))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (.f64 phi1 #s(literal 1/2 binary64)) (sin.f64 (-.f64 #s(literal 0 binary64) phi2))) (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64))))
(- (+ 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) (sin.f64 (-.f64 #s(literal 0 binary64) phi2))))) (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64))))
(- (+ 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) (sin.f64 (-.f64 #s(literal 0 binary64) phi2))) (.f64 #s(literal 1/4 binary64) (cos.f64 phi2)))) (.f64 #s(literal 1/2 binary64) (sin.f64 (-.f64 #s(literal 0 binary64) phi2))))) (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64))))
(- 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 (neg.f64 (+.f64 phi2 (neg.f64 phi1))))))
(- 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi2 (neg.f64 phi1))))))
(- 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi2 (neg.f64 phi1))))))
(- 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi2 (neg.f64 phi1))))))
(- 1/2 (* 1/2 (cos phi1)))
(+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64)))
(- (+ 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 (cos.f64 phi1) #s(literal 1/2 binary64))))
(- (+ 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 (cos.f64 phi1) phi2)) (.f64 #s(literal -1/2 binary64) (sin.f64 phi1)))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))
(- (+ 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 (cos.f64 phi1) #s(literal 1/2 binary64))))
(- 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 (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 (sin.f64 (-.f64 #s(literal 0 binary64) lambda2))) (cos.f64 lambda2)))
(- (+ 1 (* lambda1 (+ (sin (neg lambda2)) (* 1/2 (* lambda1 (cos (neg lambda2))))))) (cos (neg lambda2)))
(-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 (sin.f64 (-.f64 #s(literal 0 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (*.f64 lambda1 (cos.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 (sin.f64 (-.f64 #s(literal 0 binary64) lambda2)) (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal -1/6 binary64) lambda1) (sin.f64 (-.f64 #s(literal 0 binary64) lambda2))) (*.f64 #s(literal 1/2 binary64) (cos.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 (neg.f64 lambda1))))
(- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))
(-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lambda2 (neg.f64 lambda1))))
(- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))
(-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lambda2 (neg.f64 lambda1))))
(- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))
(-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lambda2 (neg.f64 lambda1))))
(- 1 (cos lambda1))
(-.f64 #s(literal 1 binary64) (cos.f64 lambda1))
(- (+ 1 (* -1 (* lambda2 (sin lambda1)))) (cos lambda1))
(+.f64 #s(literal 1 binary64) (-.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 binary64) (sin.f64 lambda1)) (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (cos.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 #s(literal -1 binary64) (sin.f64 lambda1)) (.f64 lambda2 (+.f64 (.f64 (.f64 lambda2 (sin.f64 lambda1)) #s(literal 1/6 binary64)) (.f64 #s(literal 1/2 binary64) (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal -1/8 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 (neg.f64 phi1))))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 phi2 (neg.f64 phi1))))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 phi2 (neg.f64 phi1))))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 phi2 (neg.f64 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)))
(cos (* -1/2 phi2))
(cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))
(+ (cos (* -1/2 phi2)) (* -1/2 (* phi1 (sin (* -1/2 phi2)))))
(+.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 (.f64 #s(literal -1/2 binary64) phi1) (sin.f64 (.f64 phi2 #s(literal -1/2 binary64)))))
(+ (cos (* -1/2 phi2)) (* phi1 (- (* -1/8 (* phi1 (cos (* -1/2 phi2)))) (* 1/2 (sin (* -1/2 phi2))))))
(+.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (+.f64 (.f64 (.f64 #s(literal -1/8 binary64) phi1) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))
(+ (cos (* -1/2 phi2)) (* phi1 (- (* phi1 (+ (* -1/8 (cos (* -1/2 phi2))) (* 1/48 (* phi1 (sin (* -1/2 phi2)))))) (* 1/2 (sin (* -1/2 phi2))))))
(+.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (+.f64 (.f64 phi1 (+.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal -1/8 binary64)) (.f64 (.f64 #s(literal 1/48 binary64) phi1) (sin.f64 (.f64 phi2 #s(literal -1/2 binary64)))))) (.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))
(cos (* 1/2 (- phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(cos (* 1/2 (- phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(cos (* 1/2 (- phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(cos (* 1/2 (- phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(cos (* -1/2 (+ phi2 (* -1 phi1))))
(cos.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 phi2 (neg.f64 phi1))))
(cos (* -1/2 (+ phi2 (* -1 phi1))))
(cos.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 phi2 (neg.f64 phi1))))
(cos (* -1/2 (+ phi2 (* -1 phi1))))
(cos.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 phi2 (neg.f64 phi1))))
(cos (* -1/2 (+ phi2 (* -1 phi1))))
(cos.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 phi2 (neg.f64 phi1))))
(cos (* 1/2 phi1))
(cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(+ (cos (* 1/2 phi1)) (* 1/2 (* phi2 (sin (* 1/2 phi1)))))
(+.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (.f64 phi2 #s(literal 1/2 binary64)) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))))
(+ (cos (* 1/2 phi1)) (* phi2 (- (* -1/8 (* phi2 (cos (* 1/2 phi1)))) (* -1/2 (sin (* 1/2 phi1))))))
(+.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (.f64 #s(literal -1/8 binary64) phi2) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 #s(literal 1/2 binary64) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))
(+ (cos (* 1/2 phi1)) (* phi2 (- (* phi2 (+ (* -1/8 (cos (* 1/2 phi1))) (* -1/48 (* phi2 (sin (* 1/2 phi1)))))) (* -1/2 (sin (* 1/2 phi1))))))
(+.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/8 binary64)) (.f64 (.f64 #s(literal -1/48 binary64) phi2) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 #s(literal 1/2 binary64) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))))))
(cos (* 1/2 (- phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(cos (* 1/2 (- phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(cos (* 1/2 (- phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(cos (* 1/2 (- phi1 phi2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(cos (* 1/2 (+ phi1 (* -1 phi2))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(cos (* 1/2 (+ phi1 (* -1 phi2))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(cos (* 1/2 (+ phi1 (* -1 phi2))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(cos (* 1/2 (+ phi1 (* -1 phi2))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(+ (sin (* -1/2 phi2)) (sin (* 1/2 phi2)))
(+.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))))
(+ (sin (* -1/2 phi2)) (+ (sin (* 1/2 phi2)) (* phi1 (+ (* 1/2 (cos (* -1/2 phi2))) (* 1/2 (cos (* 1/2 phi2)))))))
(+.f64 (+.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal -1/2 binary64)))) (.f64 phi1 (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))))))
(+ (sin (* -1/2 phi2)) (+ (sin (* 1/2 phi2)) (* phi1 (+ (* 1/2 (cos (* -1/2 phi2))) (+ (* 1/2 (cos (* 1/2 phi2))) (* phi1 (+ (* -1/8 (sin (* -1/2 phi2))) (* -1/8 (sin (* 1/2 phi2))))))))))
(+.f64 (+.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal -1/2 binary64)))) (.f64 phi1 (+.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))))) (.f64 phi1 (.f64 #s(literal -1/8 binary64) (+.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))))
(+ (sin (* -1/2 phi2)) (+ (sin (* 1/2 phi2)) (* phi1 (+ (* 1/2 (cos (* -1/2 phi2))) (+ (* 1/2 (cos (* 1/2 phi2))) (* phi1 (+ (* -1/8 (sin (* -1/2 phi2))) (+ (* -1/8 (sin (* 1/2 phi2))) (* phi1 (+ (* -1/48 (cos (* -1/2 phi2))) (* -1/48 (cos (* 1/2 phi2)))))))))))))
(+.f64 (+.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal -1/2 binary64)))) (.f64 phi1 (+.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))))) (.f64 phi1 (+.f64 (.f64 #s(literal -1/8 binary64) (+.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))))) (.f64 phi1 (.f64 #s(literal -1/48 binary64) (+.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))))))))))
(+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- 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))))
(+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- 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))))
(+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- 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))))
(+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- 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))))
(+ (sin (* -1/2 (+ phi2 (* -1 phi1)))) (sin (* 1/2 (- phi2 (* -1 phi1)))))
(+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (neg.f64 phi1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 (*.f64 #s(literal 1 binary64) phi1)))))
(+ (sin (* -1/2 (+ phi2 (* -1 phi1)))) (sin (* 1/2 (- phi2 (* -1 phi1)))))
(+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (neg.f64 phi1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 (*.f64 #s(literal 1 binary64) phi1)))))
(+ (sin (* -1/2 (+ phi2 (* -1 phi1)))) (sin (* 1/2 (- phi2 (* -1 phi1)))))
(+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (neg.f64 phi1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 (*.f64 #s(literal 1 binary64) phi1)))))
(+ (sin (* -1/2 (+ phi2 (* -1 phi1)))) (sin (* 1/2 (- phi2 (* -1 phi1)))))
(+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (neg.f64 phi1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 (*.f64 #s(literal 1 binary64) phi1)))))
(* 2 (sin (* 1/2 phi1)))
(.f64 #s(literal 2 binary64) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))))
(+ (* 2 (sin (* 1/2 phi1))) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* 1/2 (cos (* 1/2 phi1))))))
(+.f64 (.f64 #s(literal 2 binary64) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 phi2 (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 0 binary64))))
(+ (* 2 (sin (* 1/2 phi1))) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (+ (* -1/4 (* phi2 (sin (* 1/2 phi1)))) (* 1/2 (cos (* 1/2 phi1)))))))
(+.f64 (.f64 #s(literal 2 binary64) (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/2 binary64) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (.f64 #s(literal -1/4 binary64) phi2) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))))))))
(+ (* 2 (sin (* 1/2 phi1))) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (+ (* 1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/4 (sin (* 1/2 phi1))) (* phi2 (+ (* -1/48 (cos (* 1/2 phi1))) (* 1/48 (cos (* 1/2 phi1)))))))))))
(+.f64 (.f64 #s(literal 2 binary64) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 0 binary64)) (.f64 phi2 (+.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/4 binary64)) (.f64 phi2 (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 0 binary64))))))))
(+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- 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))))
(+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- 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))))
(+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- 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))))
(+ (sin (* 1/2 (+ phi1 phi2))) (sin (* 1/2 (- 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))))
(+ (sin (* 1/2 (+ phi1 (* -1 phi2)))) (sin (* 1/2 (- phi1 (* -1 phi2)))))
(+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (*.f64 #s(literal 1 binary64) phi2)))))
(+ (sin (* 1/2 (+ phi1 (* -1 phi2)))) (sin (* 1/2 (- phi1 (* -1 phi2)))))
(+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (*.f64 #s(literal 1 binary64) phi2)))))
(+ (sin (* 1/2 (+ phi1 (* -1 phi2)))) (sin (* 1/2 (- phi1 (* -1 phi2)))))
(+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (*.f64 #s(literal 1 binary64) phi2)))))
(+ (sin (* 1/2 (+ phi1 (* -1 phi2)))) (sin (* 1/2 (- phi1 (* -1 phi2)))))
(+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (*.f64 #s(literal 1 binary64) phi2)))))
(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 #s(literal 1/2 binary64) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (.f64 #s(literal -1/8 binary64) phi1) (sin.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 (.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 (.f64 #s(literal 1 binary64) phi1))))
(sin (* 1/2 (- phi2 (* -1 phi1))))
(sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 (.f64 #s(literal 1 binary64) phi1))))
(sin (* 1/2 (- phi2 (* -1 phi1))))
(sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 (.f64 #s(literal 1 binary64) phi1))))
(sin (* 1/2 (- phi2 (* -1 phi1))))
(sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 (.f64 #s(literal 1 binary64) 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/8 (* phi2 (sin (* 1/2 phi1)))) (* 1/2 (cos (* 1/2 phi1))))))
(+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (.f64 #s(literal -1/8 binary64) phi2) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 #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))) (* 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 (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 (.f64 #s(literal 1 binary64) phi2))))
(sin (* 1/2 (- phi1 (* -1 phi2))))
(sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal 1 binary64) phi2))))
(sin (* 1/2 (- phi1 (* -1 phi2))))
(sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal 1 binary64) phi2))))
(sin (* 1/2 (- phi1 (* -1 phi2))))
(sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal 1 binary64) phi2))))

eval649.0ms (1.3%)

Compiler: Compiled 188972 to 7587 computations (96% saved)

prune1.7s (3.5%)

Pruning

207 alts after pruning (207 fresh and 0 done)

	Pruned	Kept	Total
New	2276	70	2346
Fresh	37	137	174
Picked	5	0	5
Done	0	0	0
Total	2318	207	2525

Accuracy

79.9%

Counts

2525 → 207

Alt Table

Click to see full alt table

Status	Accuracy	Program
	54.6%	(.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)))
	30.2%	(.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 #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))))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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 (/.f64 (sqrt.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (+.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (+.f64 (.f64 #s(literal 1/2 binary64) (-.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)))
	41.3%	(.f64 (atan2.f64 (.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (+.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -1/2 binary64)))) #s(literal 1/4 binary64)) (pow.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (+.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -1/2 binary64)))) #s(literal 1/4 binary64))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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.3%	(.f64 (atan2.f64 (.f64 (-.f64 #s(literal 0 binary64) lambda1) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (sin.f64 lambda2) lambda1)) (sqrt.f64 (/.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda2)))) (.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2))))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	4.4%	(.f64 (atan2.f64 (.f64 (.f64 #s(literal 1/2 binary64) lambda1) (sqrt.f64 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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.0%	(.f64 (atan2.f64 (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (sqrt.f64 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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.5%	(.f64 (atan2.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.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)))
	54.7%	(.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)))
	32.9%	(.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 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.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.4%	(.f64 (atan2.f64 (sqrt.f64 (/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 phi1) (+.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (-.f64 (.f64 (cos.f64 phi1) (+.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -1/2 binary64))) #s(literal 1/2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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.4%	(.f64 (atan2.f64 (sqrt.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 1 binary64))))) (/.f64 (.f64 phi2 (+.f64 (sin.f64 #s(literal 0 binary64)) (sin.f64 (.f64 phi1 #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64)))) #s(literal 2 binary64)) (-.f64 (.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 1 binary64))))) (/.f64 (.f64 phi2 (+.f64 (sin.f64 #s(literal 0 binary64)) (sin.f64 (.f64 phi1 #s(literal 1 binary64))))) #s(literal 2 binary64))) (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 1 binary64))))) (/.f64 (.f64 phi2 (+.f64 (sin.f64 #s(literal 0 binary64)) (sin.f64 (.f64 phi1 #s(literal 1 binary64))))) #s(literal 2 binary64)))) (.f64 (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64)))) (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 1 binary64))))) (/.f64 (.f64 phi2 (+.f64 (sin.f64 #s(literal 0 binary64)) (sin.f64 (.f64 phi1 #s(literal 1 binary64))))) #s(literal 2 binary64)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	54.6%	(.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)))
	48.4%	(.f64 (atan2.f64 (sqrt.f64 (-.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)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.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.9%	(.f64 (atan2.f64 (sqrt.f64 (-.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 (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 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	39.5%	(.f64 (atan2.f64 (sqrt.f64 (-.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (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))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	39.5%	(.f64 (atan2.f64 (sqrt.f64 (-.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))))) (-.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 3 binary64))))) #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))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	43.6%	(.f64 (atan2.f64 (sqrt.f64 (-.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))) (/.f64 (pow.f64 (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (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))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.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.0%	(.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 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 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)))))) (.f64 R #s(literal 2 binary64)))
	38.4%	(.f64 (atan2.f64 (sqrt.f64 (-.f64 (+.f64 (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 1 binary64)))))) (/.f64 (.f64 phi2 (+.f64 (sin.f64 #s(literal 0 binary64)) (sin.f64 (.f64 phi1 #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	47.3%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (+.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) #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 (.f64 (cos.f64 phi1) (cos.f64 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)))
	47.1%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (+.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #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 (.f64 (cos.f64 phi1) (cos.f64 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)))
	36.5%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (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 (.f64 (cos.f64 phi1) (cos.f64 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)) (+.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.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)))
	36.2%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (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 (.f64 (cos.f64 phi1) (cos.f64 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)) (+.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.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)))
	50.2%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (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 (.f64 (cos.f64 phi1) (cos.f64 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 phi2))) #s(literal 1 binary64)))))) (.f64 R #s(literal 2 binary64)))
	48.6%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (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 (.f64 (cos.f64 phi1) (cos.f64 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 phi1))) #s(literal 1 binary64)))))) (.f64 R #s(literal 2 binary64)))
	50.7%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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/2 binary64) (.f64 (cos.f64 phi2) #s(literal 1/2 binary64))) (.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 R #s(literal 2 binary64)))
	49.3%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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/2 binary64) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))) (.f64 R #s(literal 2 binary64)))
	39.0%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.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/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (+.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 #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 R #s(literal 2 binary64)))
	62.4%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.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.0%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) phi1) (sin.f64 (-.f64 #s(literal 0 binary64) phi2))) (.f64 (cos.f64 phi2) #s(literal 1/2 binary64))) (.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 R #s(literal 2 binary64)))
	45.2%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (+.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal -1/2 binary64)))) #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 (.f64 (cos.f64 phi1) (cos.f64 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)))
	61.9%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (.f64 #s(literal 2 binary64) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #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 (.f64 (cos.f64 phi1) (cos.f64 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)))
	77.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 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	77.1%	(.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)))
	70.7%	(.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 #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))))))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	63.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 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)))
	73.7%	(.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 (/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64))) (.f64 (+.f64 (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (+.f64 (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))))) (-.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (+.f64 (-.f64 #s(literal 0 binary64) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.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)))
	77.1%	(.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 (/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	75.7%	(.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 (-.f64 (/.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))) (/.f64 (pow.f64 (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	49.0%	(.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 (+.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))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.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.3%	(.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 (.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))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.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.3%	(.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))))))) (+.f64 (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 #s(literal 1/2 binary64) (.f64 (.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 #s(literal 1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.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)))
	62.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 (/.f64 (.f64 (.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 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) #s(literal 1 binary64))))) (.f64 R #s(literal 2 binary64)))
	56.0%	(.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 (+.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))))) (.f64 R #s(literal 2 binary64)))
	49.2%	(.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 (.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)))))) (*.f64 R #s(literal 2 binary64)))
	53.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) (.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 #s(literal 1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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)))
	51.7%	(.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 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)))
	50.2%	(.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) (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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	51.1%	(.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 (/.f64 #s(literal 1 binary64) (/.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.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)))))))) (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.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.9%	(.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 (/.f64 #s(literal 1 binary64) (/.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.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.1%	(.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 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	51.3%	(.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 (+.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 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	51.2%	(.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 (+.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 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.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.4%	(.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 (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)))
	51.8%	(.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)))
	58.6%	(.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)))
	50.1%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (+.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)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -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.8%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (+.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))))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	60.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 (fma.f64 (+.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))) #s(literal 1/2 binary64) (-.f64 #s(literal 0 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 (-.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)))
	54.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 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.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)))
	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 (-.f64 (/.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))) (/.f64 (pow.f64 (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (fma.f64 (.f64 (.f64 (cos.f64 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)))
	60.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 (-.f64 (/.f64 (pow.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))) (/.f64 (pow.f64 (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64)))) #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.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)))
	61.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 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (/.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 #s(literal -1/2 binary64) (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))))) #s(literal 3 binary64)) (pow.f64 (/.f64 (.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)))) (sqrt.f64 (+.f64 (.f64 (+.f64 #s(literal -1/2 binary64) (+.f64 #s(literal 1 binary64) (.f64 #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 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 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 #s(literal 0 binary64)))) #s(literal 2 binary64)))) (pow.f64 (/.f64 (.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 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	57.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 (.f64 (cos.f64 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 (.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)))))) #s(literal 1 binary64)))))) (.f64 R #s(literal 2 binary64)))
	62.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 (.f64 (cos.f64 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 (.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))))) #s(literal 1 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	50.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 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	50.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 (-.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 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	48.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 (-.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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	42.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 (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.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.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.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 (+.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.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	50.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	45.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 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)))
	51.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 (+.f64 #s(literal 1 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)))
	50.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 #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)))
	51.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 (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)))
	48.0%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.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 (-.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)))
	45.3%	(.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 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.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.3%	(.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 (-.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)))
	42.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 (.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)))
	54.6%	(.f64 (atan2.f64 (sqrt.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) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	54.7%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (/.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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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.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 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) 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)))
	54.7%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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 (-.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 (cos.f64 lambda1) (+.f64 (.f64 lambda2 (sin.f64 lambda1)) #s(literal -1 binary64))) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	55.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) (+.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)))
	33.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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2))) (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 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	36.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 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2))) (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 (cos.f64 lambda2) (.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)))
	14.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) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2))) (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 (cos.f64 lambda1) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))) (sin.f64 lambda1)))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	32.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 (-.f64 (pow.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64))) (cos.f64 #s(literal 0 binary64))))) (/.f64 (.f64 (+.f64 (cos.f64 lambda1) (+.f64 (.f64 lambda2 (sin.f64 lambda1)) #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 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 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 (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)))
	36.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 (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)))
	55.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 (.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.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 (+.f64 (cos.f64 lambda2) (.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.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 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (+.f64 (cos.f64 lambda1) #s(literal -1 binary64)) lambda2))) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	43.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 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)))
	24.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 phi2))) (/.f64 (.f64 (+.f64 (cos.f64 lambda1) (+.f64 (.f64 lambda2 (sin.f64 lambda1)) #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 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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)))
	20.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 0 binary64) (.f64 lambda1 lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 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)))
	20.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 lambda2 (-.f64 (.f64 lambda2 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/4 binary64) (.f64 lambda1 lambda1)))) lambda1)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 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)))
	32.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) (-.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1 binary64) (sin.f64 lambda1)) (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (cos.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 lambda1) (+.f64 (.f64 lambda2 (sin.f64 lambda1)) #s(literal -1 binary64))) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	29.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) (-.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 lambda1) (+.f64 (.f64 lambda2 (sin.f64 lambda1)) #s(literal -1 binary64))) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	40.3%	(.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)))
	50.9%	(.f64 (atan2.f64 (sqrt.f64 (+.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)))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.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 (+.f64 #s(literal 1/2 binary64) (.f64 (.f64 phi2 #s(literal -1/2 binary64)) (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)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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.5%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.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 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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 (.f64 (.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #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 (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 (-.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)))
	47.2%	(.f64 (atan2.f64 (sqrt.f64 (+.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 (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) (-.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)))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.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 (+.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 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)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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 (.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 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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.0%	(.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) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (-.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))))))))) (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)))
	55.1%	(.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) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))))))))) (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)))
	38.4%	(.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 (+.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/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 lambda1 #s(literal 2 binary64)))))))))) (*.f64 #s(literal 2 binary64) R))
	55.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 (-.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))))) (-.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))))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	43.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 (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 #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)))
	38.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 (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 #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.5%	(.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 (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)))
	42.7%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi2))) (.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) (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)))
	40.4%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.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)))
	41.4%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (cos.f64 (-.f64 phi2 phi1))))))) (.f64 R #s(literal 2 binary64)))
	33.1%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.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)))
	54.6%	(.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))) (+.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) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	77.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 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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)))
	61.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 #s(literal 1/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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.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 R #s(literal 2 binary64)))
	61.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 lambda2 (neg.f64 lambda1)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 #s(literal 1/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 (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/2 binary64) (+.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1))))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (*.f64 R #s(literal 2 binary64)))
	54.7%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.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))))) (sqrt.f64 (+.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))))) (+.f64 #s(literal -1/2 binary64) (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))))))))) (.f64 R #s(literal 2 binary64)))
	54.7%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.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))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))) (/.f64 #s(literal 1 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 R #s(literal 2 binary64)))
	28.3%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 phi1 phi1) (+.f64 #s(literal 1/4 binary64) (.f64 #s(literal -1/4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (-.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)))
	49.0%	(.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 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	54.7%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.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 (+.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)))
	47.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 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.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.4%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (+.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -1/2 binary64))) #s(literal 1/2 binary64))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	23.4%	(.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 (cos.f64 lambda1) (+.f64 (.f64 lambda2 (sin.f64 lambda1)) #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 #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 (cos.f64 lambda1) (+.f64 (.f64 lambda2 (sin.f64 lambda1)) #s(literal -1 binary64))) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	30.9%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (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 lambda1) (+.f64 (.f64 lambda2 (sin.f64 lambda1)) #s(literal -1 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 #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 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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 (cos.f64 phi1) #s(literal 1/2 binary64)) (/.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.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 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))))) (.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 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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 (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 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	41.9%	(.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 (pow.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (-.f64 (.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	41.4%	(.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 (/.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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 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 (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 (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)))
	34.6%	(.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 (cos.f64 lambda2) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	29.1%	(.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 (cos.f64 lambda1) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	25.4%	(.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 lambda1))) (.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 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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.2%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (neg.f64 (.f64 phi1 (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))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	54.7%	(.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)))
	20.7%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 lambda1 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (.f64 #s(literal -1/2 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)))
	43.0%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 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)))
	35.9%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1))))))) (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)))
	41.4%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (+.f64 (.f64 #s(literal 1/2 binary64) (-.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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
	43.3%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (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.4%	(.f64 (atan2.f64 (sqrt.f64 (.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 (cos.f64 phi1) (+.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -1/2 binary64))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (+.f64 (.f64 #s(literal 1/2 binary64) (-.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)))
	28.5%	(.f64 (atan2.f64 (sqrt.f64 (.f64 #s(literal 1/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 (cos.f64 (-.f64 lambda1 lambda2)) (+.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)))
	28.5%	(.f64 (atan2.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.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)))
	28.5%	(.f64 (atan2.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (/.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))))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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.4%	(.f64 (atan2.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 (sin.f64 (-.f64 #s(literal 0 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))) (cos.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)))
	28.7%	(.f64 (atan2.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (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)))
	28.7%	(.f64 (atan2.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.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)))
	12.9%	(.f64 (atan2.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 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)))
	25.9%	(.f64 (atan2.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (/.f64 (sqrt.f64 (-.f64 (pow.f64 (cos.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 (cos.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 (-.f64 phi1 phi2) #s(literal 1 binary64))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	28.5%	(.f64 (atan2.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (sqrt.f64 (+.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)) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))))))) (*.f64 R #s(literal 2 binary64)))
	21.5%	(.f64 (atan2.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.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) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) phi2)) (.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)))
	24.0%	(.f64 (atan2.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.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) (+.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)))
	28.3%	(.f64 (atan2.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.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 (-.f64 #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)))
	28.4%	(.f64 (atan2.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.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 #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 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	29.0%	(.f64 (atan2.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.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 (+.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)))
	29.0%	(.f64 (atan2.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.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 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (+.f64 (.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)))
	20.2%	(.f64 (atan2.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.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 lambda2) (-.f64 (.f64 (neg.f64 lambda1) (sin.f64 (-.f64 #s(literal 0 binary64) lambda2))) #s(literal 1 binary64))) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	25.9%	(.f64 (atan2.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.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 lambda2) #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 #s(literal 1/2 binary64) (-.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 lambda1) #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 (.f64 #s(literal 1/2 binary64) (-.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 (+.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 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	28.2%	(.f64 (atan2.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.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 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)))
	28.3%	(.f64 (atan2.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.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 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)))
	23.8%	(.f64 (atan2.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi2) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))) (.f64 (.f64 #s(literal -1/2 binary64) phi1) (sin.f64 (-.f64 #s(literal 0 binary64) phi2))))))) (*.f64 R #s(literal 2 binary64)))
	28.5%	(.f64 (atan2.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.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)))
	25.9%	(.f64 (atan2.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.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 lambda2) #s(literal -1 binary64)))))))) (.f64 R #s(literal 2 binary64)))
	19.4%	(.f64 (atan2.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.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 lambda1) #s(literal -1 binary64)))))))) (.f64 R #s(literal 2 binary64)))
	28.7%	(.f64 (atan2.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.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 phi2) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
	28.8%	(.f64 (atan2.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.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 phi1) (.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
	28.5%	(.f64 (atan2.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (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 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))) #s(literal 1/2 binary64)))) (.f64 R #s(literal 2 binary64)))
	22.3%	(.f64 (atan2.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.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)))
	14.3%	(.f64 (atan2.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 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)))
	19.9%	(.f64 (atan2.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 lambda1 (sin.f64 (-.f64 #s(literal 0 binary64) lambda2))) (cos.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)))
	18.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 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	54.7%	(.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)))
	41.4%	(.f64 (atan2.f64 (exp.f64 (.f64 (log.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (+.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -1/2 binary64))))) #s(literal 1/2 binary64))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	61.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 (/.f64 (-.f64 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)))))))
	46.1%	(.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 #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)))))))))
	44.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (+.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))) #s(literal 1/2 binary64) (-.f64 #s(literal 0 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 (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)))))))))
	47.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)))))))
	34.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) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
	45.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (+.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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
	46.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 (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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
	41.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
	37.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #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)))))))))
	37.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (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) lambda1)) #s(literal 2 binary64)))))))))
	36.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #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)))))))))
	36.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.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)))))))))
	49.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 (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)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
	50.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (cos.f64 phi2) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (pow.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))))
	32.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 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)))))))))
	41.4%	(.f64 R (.f64 #s(literal 2 binary64) (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 (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)))))))))
	38.4%	(.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 (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)))))))))
	35.1%	(.f64 R (.f64 #s(literal 2 binary64) (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 (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)))))))))
	34.3%	(.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 #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)))))))))

Compiler

Compiled 42913 to 11513 computations (73.2% saved)

regimes2.3s (4.6%)

Counts

353 → 1

Calls

Call 1

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

Calls

12 calls:

180.0ms	lambda2
165.0ms	phi1
163.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)))))
150.0ms	R
141.0ms	(-.f64 lambda1 lambda2)

Results

Accuracy	Segments	Branch
77.2%	1	`R`
77.2%	1	`lambda1`
77.2%	1	`lambda2`
77.2%	1	`phi1`
77.2%	1	`phi2`
77.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))))))))))
77.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)))))))))
77.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))))))))
77.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)))))`
77.2%	1	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`
77.2%	1	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
77.2%	1	`(-.f64 lambda1 lambda2)`

Compiler

Compiled 296 to 142 computations (52% saved)

regimes2.3s (4.6%)

Counts

311 → 1

Calls

Call 1

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

Calls

12 calls:

439.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)))))))))
140.0ms	phi2
130.0ms	phi1
124.0ms	R
124.0ms	lambda1

Results

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

Compiler

Compiled 296 to 142 computations (52% saved)

regimes1.1s (2.2%)

Counts

309 → 1

Calls

Call 1

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

Calls

6 calls:

119.0ms	(-.f64 lambda1 lambda2)
117.0ms	lambda1
107.0ms	R
99.0ms	lambda2
91.0ms	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))

Results

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

Compiler

Compiled 106 to 55 computations (48.1% saved)

regimes1.7s (3.4%)

Counts

287 → 3

Calls

Call 1

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

Outputs

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

Calls

12 calls:

126.0ms	(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
115.0ms	(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
110.0ms	phi1
109.0ms	phi2
107.0ms	lambda1

Results

Accuracy	Segments	Branch
70.1%	3	`phi1`
70.1%	3	`phi2`
64.4%	2	(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
64.4%	2	(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
75.7%	3	`lambda2`
64.9%	2	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
62.6%	1	`(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))`
62.6%	1	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`
62.6%	1	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
62.6%	1	`(-.f64 lambda1 lambda2)`
62.6%	1	`R`
75.9%	3	`lambda1`

Compiler

Compiled 296 to 142 computations (52% saved)

regimes664.0ms (1.3%)

Counts

286 → 3

Calls

Call 1

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

Outputs

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

Calls

2 calls:

96.0ms	lambda2
82.0ms	lambda1

Results

Accuracy	Segments	Branch
67.9%	3	`lambda2`
70.3%	3	`lambda1`

Compiler

Compiled 12 to 10 computations (16.7% saved)

regimes1.1s (2.1%)

Counts

285 → 1

Calls

Call 1

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

Outputs

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

Calls

7 calls:

143.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)))))))))
131.0ms	lambda2
98.0ms	phi2
97.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))))))))))
95.0ms	lambda1

Results

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

Compiler

Compiled 228 to 95 computations (58.3% saved)

regimes1.5s (3.1%)

Counts

214 → 1

Calls

Call 1

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

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:

450.0ms	lambda1
103.0ms	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
95.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))))))))))
94.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)))))))))
93.0ms	R

Results

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

Compiler

Compiled 296 to 142 computations (52% saved)

regimes445.0ms (0.9%)

Counts

104 → 3

Calls

Call 1

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

Calls

8 calls:

62.0ms	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
46.0ms	R
45.0ms	lambda1
42.0ms	phi1
35.0ms	lambda2

Results

Accuracy	Segments	Branch
58.3%	1	`R`
62.2%	3	`phi2`
58.3%	1	`lambda1`
58.3%	1	`lambda2`
61.8%	3	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`
61.8%	3	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
61.8%	3	`(-.f64 lambda1 lambda2)`
62.4%	3	`phi1`

Compiler

Compiled 59 to 48 computations (18.6% saved)

regimes153.0ms (0.3%)

Counts

101 → 3

Calls

Call 1

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

Outputs

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

Calls

1 calls:

39.0ms

phi1

Results

Accuracy	Segments	Branch
62.3%	3	`phi1`

Compiler

Compiled 6 to 5 computations (16.7% saved)

regimes177.0ms (0.4%)

Counts

99 → 3

Calls

Call 1

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

Outputs

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

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

Calls

1 calls:

64.0ms

phi1

Results

Accuracy	Segments	Branch
62.2%	3	`phi1`

Compiler

Compiled 6 to 5 computations (16.7% saved)

regimes198.0ms (0.4%)

Counts

97 → 3

Calls

Call 1

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

Outputs

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

Calls

2 calls:

47.0ms	phi1
27.0ms	phi2

Results

Accuracy	Segments	Branch
58.3%	1	`phi2`
62.0%	3	`phi1`

Compiler

Compiled 12 to 10 computations (16.7% saved)

regimes203.0ms (0.4%)

Counts

96 → 3

Calls

Call 1

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

Outputs

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

Calls

3 calls:

46.0ms	phi1
30.0ms	(-.f64 lambda1 lambda2)
24.0ms	(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))

Results

Accuracy	Segments	Branch
61.8%	3	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
61.8%	3	`(-.f64 lambda1 lambda2)`
58.3%	1	`phi1`

Compiler

Compiled 24 to 19 computations (20.8% saved)

regimes129.0ms (0.3%)

Counts

79 → 3

Calls

Call 1

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

Calls

2 calls:

22.0ms	(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
21.0ms	(-.f64 lambda1 lambda2)

Results

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

Compiler

Compiled 18 to 14 computations (22.2% saved)

regimes149.0ms (0.3%)

Counts

67 → 3

Calls

Call 1

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

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

Calls

3 calls:

29.0ms	(-.f64 lambda1 lambda2)
18.0ms	(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
17.0ms	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))

Results

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

Compiler

Compiled 29 to 23 computations (20.7% saved)

regimes212.0ms (0.4%)

Counts

49 → 3

Calls

Call 1

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

Calls

8 calls:

43.0ms	phi1
37.0ms	lambda1
25.0ms	lambda2
19.0ms	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
15.0ms	(-.f64 lambda1 lambda2)

Results

Accuracy	Segments	Branch
44.5%	2	`R`
42.9%	1	`lambda1`
54.8%	3	`phi2`
49.1%	3	`lambda2`
55.0%	3	`phi1`
54.4%	3	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
54.4%	3	`(-.f64 lambda1 lambda2)`
54.4%	3	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`

Compiler

Compiled 59 to 48 computations (18.6% saved)

regimes96.0ms (0.2%)

Counts

37 → 1

Calls

Call 1

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

Calls

6 calls:

31.0ms	lambda1
12.0ms	lambda2
11.0ms	phi2
10.0ms	phi1
10.0ms	R

Results

Accuracy	Segments	Branch
41.4%	1	`lambda1`
41.4%	1	`R`
41.4%	1	`lambda2`
41.4%	1	`(-.f64 lambda1 lambda2)`
41.4%	1	`phi2`
41.4%	1	`phi1`

Compiler

Compiled 38 to 31 computations (18.4% saved)

regimes68.0ms (0.1%)

Accuracy

Total -15.4b remaining (-33.7%)

Threshold costs -15.4b (-33.7%)

Counts

17 → 1

Calls

Call 1

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

Calls

6 calls:

24.0ms	(-.f64 lambda1 lambda2)
22.0ms	lambda2
5.0ms	phi2
5.0ms	lambda1
5.0ms	phi1

Results

Accuracy	Segments	Branch
28.8%	1	`(-.f64 lambda1 lambda2)`
28.8%	1	`phi1`
28.8%	1	`R`
28.8%	1	`lambda1`
28.8%	1	`lambda2`
28.8%	1	`phi2`

Compiler

Compiled 38 to 31 computations (18.4% saved)

bsearch241.0ms (0.5%)

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
123.0ms	6.377882501027256e-19	7.906086424919078e-16
100.0ms	-0.09460286838608785	-4.527370447340013e-6

Results

202.0ms	216×	1	valid
8.0ms	40×	0	valid

Compiler

Compiled 2958 to 1713 computations (42.1% saved)

Precisions

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

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

ival-cos: 27.0ms (16.4% of total)

ival-sub: 22.0ms (13.4% of total)

ival-mult: 17.0ms (10.3% of total)

backward-pass: 11.0ms (6.7% of total)

ival-div: 7.0ms (4.3% of total)

ival-pow: 6.0ms (3.6% of total)

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

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

ival-add: 2.0ms (1.2% of total)

const: 1.0ms (0.6% of total)

bsearch306.0ms (0.6%)

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
141.0ms	6.377882501027256e-19	7.906086424919078e-16
129.0ms	-2.494318739111344e-59	-9.897129906137282e-64

Results

210.0ms	209×	1	valid
25.0ms	47×	0	valid

Compiler

Compiled 2774 to 1601 computations (42.3% saved)

Precisions

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

ival-sin: 51.0ms (26% of total)

ival-cos: 28.0ms (14.3% of total)

ival-add: 25.0ms (12.7% of total)

backward-pass: 24.0ms (12.2% of total)

ival-div: 23.0ms (11.7% of total)

ival-mult: 17.0ms (8.7% of total)

ival-sub: 9.0ms (4.6% of total)

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

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

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

const: 1.0ms (0.5% of total)

bsearch237.0ms (0.5%)

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
99.0ms	1.1937440173656984e-15	3.1867017232972196e-12
102.0ms	-0.39426113022917464	-9.173951749677895e-7

Results

168.0ms	221×	1	valid
19.0ms	51×	0	valid

Compiler

Compiled 2178 to 1329 computations (39% saved)

Precisions

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

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

ival-mult: 33.0ms (20.3% of total)

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

ival-sub: 16.0ms (9.9% of total)

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

backward-pass: 7.0ms (4.3% of total)

ival-div: 7.0ms (4.3% of total)

ival-pow: 6.0ms (3.7% of total)

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

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

const: 1.0ms (0.6% of total)

bsearch214.0ms (0.4%)

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
80.0ms	1.1937440173656984e-15	3.1867017232972196e-12
102.0ms	-0.39426113022917464	-9.173951749677895e-7

Results

159.0ms	218×	1	valid
11.0ms	54×	0	valid

Compiler

Compiled 2106 to 1275 computations (39.5% saved)

Precisions

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

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

ival-cos: 34.0ms (24% of total)

ival-mult: 18.0ms (12.7% of total)

ival-sub: 10.0ms (7% of total)

const: 8.0ms (5.6% of total)

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

backward-pass: 7.0ms (4.9% of total)

ival-div: 7.0ms (4.9% of total)

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

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

ival-add: 2.0ms (1.4% of total)

bsearch247.0ms (0.5%)

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
105.0ms	1.1937440173656984e-15	3.1867017232972196e-12
119.0ms	-0.39426113022917464	-9.173951749677895e-7

Results

176.0ms	229×	1	valid
35.0ms	43×	0	valid

Compiler

Compiled 2066 to 1267 computations (38.7% saved)

Precisions

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

ival-mult: 49.0ms (30.3% of total)

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

ival-cos: 28.0ms (17.3% of total)

ival-pow: 12.0ms (7.4% of total)

ival-sub: 9.0ms (5.6% of total)

backward-pass: 8.0ms (5% of total)

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

ival-div: 7.0ms (4.3% of total)

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

ival-add: 2.0ms (1.2% of total)

const: 1.0ms (0.6% of total)

bsearch262.0ms (0.5%)

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
147.0ms	8.322600573588458e-35	1.216769493840202e-29
99.0ms	-0.39426113022917464	-9.173951749677895e-7

Results

214.0ms	228×	1	valid
20.0ms	60×	0	valid

Compiler

Compiled 2166 to 1329 computations (38.6% saved)

Precisions

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

ival-cos: 43.0ms (21.7% of total)

ival-mult: 37.0ms (18.7% of total)

ival-pow: 30.0ms (15.2% of total)

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

ival-sqrt: 20.0ms (10.1% of total)

ival-sub: 15.0ms (7.6% of total)

backward-pass: 7.0ms (3.5% of total)

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

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

ival-add: 3.0ms (1.5% of total)

const: 1.0ms (0.5% of total)

bsearch3.0ms (0%)

Algorithm

2×	left-value

Steps

Time	Left	Right
0.0ms	7.906086424919078e-16	0.014243745092331755
0.0ms	-1.2317004209314591e-20	-1.8058205396674196e-23

Compiler

Compiled 72 to 33 computations (54.2% saved)

bsearch2.0ms (0%)

Algorithm

2×	left-value

Steps

Time	Left	Right
0.0ms	7.906086424919078e-16	0.014243745092331755
0.0ms	-1.2317004209314591e-20	-1.8058205396674196e-23

Compiler

Compiled 72 to 33 computations (54.2% saved)

bsearch2.0ms (0%)

Algorithm

2×	left-value

Steps

Time	Left	Right
0.0ms	3.953043212459539e-16	0.007121812341487607
0.0ms	-6.1585021046572954e-21	-9.029102698337098e-24

Compiler

Compiled 63 to 34 computations (46% saved)

bsearch212.0ms (0.4%)

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
90.0ms	1.1937440173656984e-15	3.1867017232972196e-12
110.0ms	-0.39426113022917464	-9.173951749677895e-7

Results

176.0ms	217×	1	valid
12.0ms	55×	0	valid

Compiler

Compiled 2027 to 1310 computations (35.4% saved)

Precisions

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

ival-mult: 43.0ms (26% of total)

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

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

ival-sqrt: 24.0ms (14.5% of total)

backward-pass: 10.0ms (6% of total)

ival-div: 9.0ms (5.4% of total)

ival-sub: 8.0ms (4.8% of total)

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

ival-pow: 6.0ms (3.6% of total)

ival-add: 2.0ms (1.2% of total)

const: 1.0ms (0.6% of total)

simplify149.0ms (0.3%)

Algorithm

1×	egg-herbie

Rules

856×	`distribute-lft-neg-in_binary64`
404×	`neg-mul-1_binary64`
398×	`neg-sub0_binary64`
388×	`*-commutative_binary64`
354×	`sub-neg_binary64`

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	339	2205
1	564	2205
2	668	2205
3	769	2205
4	862	2205
5	939	2205
6	1077	2205
7	1325	2205
8	1676	2205
9	2049	2205
10	2375	2205
11	2562	2205
12	2654	2205
13	2688	2205
14	2694	2205
15	2694	2205

Stop Event

1×

saturated

Calls

Call 1

Inputs
(.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 (/.f64 #s(literal 1 binary64) (/.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(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 (/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(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))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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)))
(if (<=.f64 lambda1 #s(literal -3910709743626425/147573952589676412928 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))) (if (<=.f64 lambda1 #s(literal 7910139745424151/10141204801825835211973625643008 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)))))
(if (<=.f64 lambda1 #s(literal -5427754182999197/226156424291633194186662080095093570025917938800079226639565593765455331328 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 (/.f64 (.f64 (.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 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) #s(literal 1 binary64))))) (.f64 R #s(literal 2 binary64))) (if (<=.f64 lambda1 #s(literal 7910139745424151/10141204801825835211973625643008 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 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #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 (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 (/.f64 (.f64 (.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 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) #s(literal 1 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)))))))
(if (<=.f64 phi1 #s(literal -700976274800963/73786976294838206464 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 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #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 974877780937237/309485009821345068724781056 binary64)) (.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (cos.f64 phi2) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (pow.f64 (cos.f64 (.f64 phi2 #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/2 binary64) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))) (*.f64 R #s(literal 2 binary64)))))
(if (<=.f64 phi1 #s(literal -2582544170319337/36893488147419103232 binary64)) (.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (+.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -1/2 binary64))) #s(literal 1/2 binary64))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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 974877780937237/309485009821345068724781056 binary64)) (.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (cos.f64 phi2) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (pow.f64 (cos.f64 (.f64 phi2 #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/2 binary64) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))) (*.f64 R #s(literal 2 binary64)))))
(if (<=.f64 phi1 #s(literal -3412647653636267/18446744073709551616 binary64)) (.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (+.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -1/2 binary64))) #s(literal 1/2 binary64))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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 974877780937237/309485009821345068724781056 binary64)) (.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (cos.f64 phi2) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (pow.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))) (.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 (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)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))))
(if (<=.f64 phi1 #s(literal -4796153459164483/73786976294838206464 binary64)) (.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (+.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -1/2 binary64))) #s(literal 1/2 binary64))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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 8563486156235759/713623846352979940529142984724747568191373312 binary64)) (.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (cos.f64 phi2) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (pow.f64 (cos.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) (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)))))
(if (<=.f64 (-.f64 lambda1 lambda2) #s(literal -6646139978924579/664613997892457936451903530140172288 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))) (if (<=.f64 (-.f64 lambda1 lambda2) #s(literal 2535301200456459/2535301200456458802993406410752 binary64)) (.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 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))))) (.f64 R #s(literal 2 binary64)))))
(if (<=.f64 (-.f64 lambda1 lambda2) #s(literal -6646139978924579/664613997892457936451903530140172288 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))) (if (<=.f64 (-.f64 lambda1 lambda2) #s(literal 2535301200456459/2535301200456458802993406410752 binary64)) (.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 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))))) (*.f64 R #s(literal 2 binary64)))))
(if (<=.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #s(literal -6646139978924579/1329227995784915872903807060280344576 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))) (if (<=.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #s(literal 2535301200456459/5070602400912917605986812821504 binary64)) (.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 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)))))
(if (<=.f64 phi1 #s(literal -944473296573929/147573952589676412928 binary64)) (.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (+.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -1/2 binary64))) #s(literal 1/2 binary64))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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 974877780937237/309485009821345068724781056 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 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #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 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (cos.f64 (-.f64 phi2 phi1))))))) (*.f64 R #s(literal 2 binary64)))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (+.f64 (.f64 #s(literal 1/2 binary64) (-.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 (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 #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 phi1) (.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))) (*.f64 R #s(literal 2 binary64)))

Outputs
(.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 (/.f64 #s(literal 1 binary64) (/.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(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 (/.f64 #s(literal 1 binary64) (/.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 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))
(.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 (/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(.f64 (.f64 #s(literal 2 binary64) R) (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))) (/.f64 (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 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 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (*.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #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 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (cos.f64 phi1) (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(if (<=.f64 lambda1 #s(literal -3910709743626425/147573952589676412928 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))) (if (<=.f64 lambda1 #s(literal 7910139745424151/10141204801825835211973625643008 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)))))
(if (<=.f64 lambda1 #s(literal -3910709743626425/147573952589676412928 binary64)) (.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda1 #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))))))) (if (<=.f64 lambda1 #s(literal 7910139745424151/10141204801825835211973625643008 binary64)) (.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 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 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda1 #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)))))))))
(if (<=.f64 lambda1 #s(literal -5427754182999197/226156424291633194186662080095093570025917938800079226639565593765455331328 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 (/.f64 (.f64 (.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 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) #s(literal 1 binary64))))) (.f64 R #s(literal 2 binary64))) (if (<=.f64 lambda1 #s(literal 7910139745424151/10141204801825835211973625643008 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 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #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)))))))))))
(if (<=.f64 lambda1 #s(literal -5427754182999197/226156424291633194186662080095093570025917938800079226639565593765455331328 binary64)) (.f64 (.f64 #s(literal 2 binary64) R) (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 (/.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 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))) (if (<=.f64 lambda1 #s(literal 7910139745424151/10141204801825835211973625643008 binary64)) (.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64))))))) (.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (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 #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)) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #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 (/.f64 (.f64 (.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 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) #s(literal 1 binary64))))) (.f64 R #s(literal 2 binary64)))
(.f64 (.f64 #s(literal 2 binary64) R) (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 (/.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 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 (.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 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))))))
(if (<=.f64 phi1 #s(literal -700976274800963/73786976294838206464 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 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #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 974877780937237/309485009821345068724781056 binary64)) (.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (cos.f64 phi2) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (pow.f64 (cos.f64 (.f64 phi2 #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/2 binary64) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))) (*.f64 R #s(literal 2 binary64)))))
(if (<=.f64 phi1 #s(literal -700976274800963/73786976294838206464 binary64)) (.f64 (.f64 #s(literal 2 binary64) R) (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 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (+.f64 (.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal -1 binary64)))) #s(literal 2 binary64)))))) (if (<=.f64 phi1 #s(literal 974877780937237/309485009821345068724781056 binary64)) (.f64 R (.f64 #s(literal 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 (.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (pow.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))))))))
(if (<=.f64 phi1 #s(literal -2582544170319337/36893488147419103232 binary64)) (.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (+.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -1/2 binary64))) #s(literal 1/2 binary64))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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 974877780937237/309485009821345068724781056 binary64)) (.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (cos.f64 phi2) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (pow.f64 (cos.f64 (.f64 phi2 #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/2 binary64) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))) (*.f64 R #s(literal 2 binary64)))))
(if (<=.f64 phi1 #s(literal -2582544170319337/36893488147419103232 binary64)) (.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (+.f64 #s(literal -1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (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 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))))) (if (<=.f64 phi1 #s(literal 974877780937237/309485009821345068724781056 binary64)) (.f64 R (.f64 #s(literal 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 (.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (pow.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))))))))
(if (<=.f64 phi1 #s(literal -3412647653636267/18446744073709551616 binary64)) (.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (+.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -1/2 binary64))) #s(literal 1/2 binary64))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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 974877780937237/309485009821345068724781056 binary64)) (.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (cos.f64 phi2) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (pow.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))) (.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 (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)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))))
(if (<=.f64 phi1 #s(literal -3412647653636267/18446744073709551616 binary64)) (.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (+.f64 #s(literal -1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (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 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))))) (if (<=.f64 phi1 #s(literal 974877780937237/309485009821345068724781056 binary64)) (.f64 R (.f64 #s(literal 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 (.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (pow.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))) (.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (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 (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)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))))
(if (<=.f64 phi1 #s(literal -4796153459164483/73786976294838206464 binary64)) (.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (+.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -1/2 binary64))) #s(literal 1/2 binary64))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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 8563486156235759/713623846352979940529142984724747568191373312 binary64)) (.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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 (cos.f64 phi2) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (pow.f64 (cos.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) (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)))))
(if (<=.f64 phi1 #s(literal -4796153459164483/73786976294838206464 binary64)) (.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (+.f64 #s(literal -1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (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 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))))) (if (<=.f64 phi1 #s(literal 8563486156235759/713623846352979940529142984724747568191373312 binary64)) (.f64 R (.f64 #s(literal 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 (.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (pow.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))) (.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1)))))))) (sqrt.f64 (+.f64 #s(literal 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 lambda2 lambda1))))))))))))
(if (<=.f64 (-.f64 lambda1 lambda2) #s(literal -6646139978924579/664613997892457936451903530140172288 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))) (if (<=.f64 (-.f64 lambda1 lambda2) #s(literal 2535301200456459/2535301200456458802993406410752 binary64)) (.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 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))))) (.f64 R #s(literal 2 binary64)))))
(if (<=.f64 (-.f64 lambda1 lambda2) #s(literal -6646139978924579/664613997892457936451903530140172288 binary64)) (.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (exp.f64 (.f64 #s(literal 1/2 binary64) (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)))))))))) (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 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))))) (if (<=.f64 (-.f64 lambda1 lambda2) #s(literal 2535301200456459/2535301200456458802993406410752 binary64)) (.f64 R (.f64 #s(literal 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 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.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)) (-.f64 #s(literal 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 (/.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 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))))))
(if (<=.f64 (-.f64 lambda1 lambda2) #s(literal -6646139978924579/664613997892457936451903530140172288 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))) (if (<=.f64 (-.f64 lambda1 lambda2) #s(literal 2535301200456459/2535301200456458802993406410752 binary64)) (.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 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))))) (*.f64 R #s(literal 2 binary64)))))
(if (<=.f64 (-.f64 lambda1 lambda2) #s(literal -6646139978924579/664613997892457936451903530140172288 binary64)) (.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1)))))))) (sqrt.f64 (+.f64 #s(literal 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 lambda2 lambda1)))))))))) (if (<=.f64 (-.f64 lambda1 lambda2) #s(literal 2535301200456459/2535301200456458802993406410752 binary64)) (.f64 R (.f64 #s(literal 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 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.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)) (-.f64 #s(literal 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 (/.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 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))))))))))
(if (<=.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #s(literal -6646139978924579/1329227995784915872903807060280344576 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))) (if (<=.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #s(literal 2535301200456459/5070602400912917605986812821504 binary64)) (.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 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)))))
(if (<=.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #s(literal -6646139978924579/1329227995784915872903807060280344576 binary64)) (.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1)))))))) (sqrt.f64 (+.f64 #s(literal 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 lambda2 lambda1)))))))))) (if (<=.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #s(literal 2535301200456459/5070602400912917605986812821504 binary64)) (.f64 R (.f64 #s(literal 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 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1)))))))) (sqrt.f64 (+.f64 #s(literal 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 lambda2 lambda1))))))))))))
(if (<=.f64 phi1 #s(literal -944473296573929/147573952589676412928 binary64)) (.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (+.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -1/2 binary64))) #s(literal 1/2 binary64))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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 974877780937237/309485009821345068724781056 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 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #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 #s(literal 1/2 binary64) (cos.f64 phi1)) (-.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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (cos.f64 (-.f64 phi2 phi1))))))) (*.f64 R #s(literal 2 binary64)))))
(if (<=.f64 phi1 #s(literal -944473296573929/147573952589676412928 binary64)) (.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (+.f64 #s(literal -1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (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 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))))) (if (<=.f64 phi1 #s(literal 974877780937237/309485009821345068724781056 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 (cos.f64 phi2) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) #s(literal -1/2 binary64))))) (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 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))))))) (.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) #s(literal -1/2 binary64))))) (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)))))))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (+.f64 (.f64 #s(literal 1/2 binary64) (-.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 (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 (cos.f64 phi1) (+.f64 #s(literal -1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))))
(.f64 (atan2.f64 (sqrt.f64 (.f64 #s(literal 1/2 binary64) (-.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 phi1) (.f64 (cos.f64 phi1) (+.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 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))

soundness5.2s (10.4%)

Rules

7464×	`-lowering-.f32`
7464×	`-lowering-.f64`
6568×	`-lowering-.f32`
6568×	`-lowering-.f64`
6276×	`-lowering-.f32`

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	1519	57615
1	5166	56608
0	9109	56608
0	1935	59547
1	6538	58877
0	8184	58877
0	122	1139
1	733	828
2	7653	828
0	8564	828
0	105	1023
1	619	837
2	5963	837
0	8547	837
0	26	65
1	55	63
2	117	63
3	290	63
4	704	63
5	1433	63
6	3421	63
7	5443	63
8	6960	63
0	8086	63
0	2040	61855
1	6018	59777
0	8154	59777
0	41	416
1	223	398
2	1936	388
0	11141	388
0	707	25470
1	2441	24860
0	8956	24860

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

Compiler

Compiled 5216 to 1884 computations (63.9% saved)

preprocess280.0ms (0.6%)

Remove: (negabs R)
Compiler: Compiled 6618 to 1382 computations (79.1% saved)

analyze1.4s (2.8%)

sample7.6s (15.3%)

preprocess270.0ms (0.5%)

explain762.0ms (1.5%)

eval1.0ms (0%)

prune2.0ms (0%)

simplify181.0ms (0.4%)

localize528.0ms (1.1%)

series158.0ms (0.3%)

rewrite525.0ms (1.1%)

simplify557.0ms (1.1%)

eval260.0ms (0.5%)

prune323.0ms (0.6%)

simplify257.0ms (0.5%)

localize1.7s (3.5%)

series405.0ms (0.8%)

rewrite430.0ms (0.9%)

simplify888.0ms (1.8%)

eval1.3s (2.6%)

prune808.0ms (1.6%)

simplify262.0ms (0.5%)

localize1.6s (3.2%)

series347.0ms (0.7%)

rewrite415.0ms (0.8%)

simplify1.0s (2.1%)

eval588.0ms (1.2%)

prune817.0ms (1.6%)

simplify256.0ms (0.5%)

localize1.6s (3.3%)

series365.0ms (0.7%)

rewrite384.0ms (0.8%)

simplify1.5s (2.9%)

eval649.0ms (1.3%)

prune1.7s (3.5%)

regimes2.3s (4.6%)

regimes2.3s (4.6%)

regimes1.1s (2.2%)

regimes1.7s (3.4%)

regimes664.0ms (1.3%)

regimes1.1s (2.1%)

regimes1.5s (3.1%)

regimes445.0ms (0.9%)

regimes153.0ms (0.3%)

regimes177.0ms (0.4%)

regimes198.0ms (0.4%)

regimes203.0ms (0.4%)

regimes129.0ms (0.3%)

regimes149.0ms (0.3%)

regimes212.0ms (0.4%)

regimes96.0ms (0.2%)

regimes68.0ms (0.1%)

bsearch241.0ms (0.5%)

bsearch306.0ms (0.6%)

bsearch237.0ms (0.5%)

bsearch214.0ms (0.4%)

bsearch247.0ms (0.5%)

bsearch262.0ms (0.5%)

bsearch3.0ms (0%)

bsearch2.0ms (0%)

bsearch2.0ms (0%)

bsearch212.0ms (0.4%)

simplify149.0ms (0.3%)

soundness5.2s (10.4%)

preprocess280.0ms (0.6%)

end0.0ms (0%)

Profiling