Metrics for Distance on a great circle

analyze1.5s (3.3%)

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: 985.0ms

ival-mult: 254.0ms (25.8% of total)

ival-sub: 200.0ms (20.3% of total)

ival-cos: 193.0ms (19.6% of total)

ival-sin: 94.0ms (9.5% of total)

ival-pow: 68.0ms (6.9% of total)

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

ival-sqrt: 53.0ms (5.4% of total)

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

ival-add: 20.0ms (2% of total)

const: 7.0ms (0.7% of total)

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

sample7.6s (16.2%)

Results

6.1s	7486×	1	valid
286.0ms	770×	0	valid

Precisions

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

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

ival-sin: 1.3s (23.2% of total)

ival-mult: 863.0ms (15.4% of total)

ival-sub: 437.0ms (7.8% of total)

ival-div: 369.0ms (6.6% of total)

ival-sqrt: 310.0ms (5.5% of total)

ival-atan2: 291.0ms (5.2% of total)

ival-pow: 270.0ms (4.8% of total)

backward-pass: 269.0ms (4.8% of total)

ival-add: 132.0ms (2.4% of total)

const: 28.0ms (0.5% of total)

Bogosity

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

explain709.0ms (1.5%)

FPErrors

Click to see full error table

Ground Truth	Overpredictions	Example	Underpredictions	Example	Subexpression
70	120	(1.8615827989701872e-87 6.202589327572844e+75 1.1048317289587528e-281 -5.675777404268923e+40 -1.9769339109730335e-190)	0	-	`(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))`
63	124	(1.8615827989701872e-87 6.202589327572844e+75 1.1048317289587528e-281 -5.675777404268923e+40 -1.9769339109730335e-190)	0	-	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`
8	5	(6.6225809424029345e-217 8.958023944900879e-143 3.7229643348001886e-222 -6.5249979319392816e-251 -1.9582406659476955e+175)	2	(2.3617063575569428e-239 -2.2963890385545867e-45 -5.571132984762382e+237 -2.8285325100053e+76 8.19937622037905e-82)	`(-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))`
2	0	-	1	(7.528880541597309e-50 6.008986079148443e+260 -4.048093054452313e-300 1.6175382409855118e+292 9.975379517434568e-57)	`(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))`
2	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	18	(2.0889587875934857e-110 8.453979268750124e+231 4.586380999998455e+186 -2.0921451751406875e-145 -6.968007622463988e-92)	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

488.0ms	458×	1	valid
44.0ms	52×	0	valid
3.0ms	2×	3	valid

Compiler

Compiled 862 to 80 computations (90.7% saved)

Precisions

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

ival-cos: 144.0ms (36% of total)

ival-sin: 91.0ms (22.7% of total)

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

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

backward-pass: 23.0ms (5.7% of total)

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

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

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

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

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

const: 2.0ms (0.5% of total)

eval1.0ms (0%)

Compiler: Compiled 70 to 32 computations (54.3% saved)

prune2.0ms (0%)

Alt Table

Click to see full alt table

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)

simplify161.0ms (0.3%)

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

localize579.0ms (1.2%)

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	78.5%	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
✓	accuracy	78.5%	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))
✓	accuracy	76.5%	(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
✓	accuracy	99.1%	(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 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	78.5%	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
✓	accuracy	76.5%	(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))

Results

424.0ms	229×	1	valid
12.0ms	26×	0	valid
2.0ms	1×	3	valid

Compiler

Compiled 799 to 42 computations (94.7% saved)

Precisions

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

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

backward-pass: 51.0ms (18.3% of total)

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

ival-sqrt: 36.0ms (12.9% of total)

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

ival-sub: 11.0ms (3.9% of total)

ival-div: 11.0ms (3.9% of total)

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

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

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

const: 1.0ms (0.4% of total)

series161.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 (/ (- phi1 phi2) 2))>
#<alt (sin (/ (- lambda1 lambda2) 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 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 (sin (* -1/2 lambda2))>
#<alt (+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))>
#<alt (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* -1/8 (* lambda1 (sin (* -1/2 lambda2)))) (* 1/2 (cos (* -1/2 lambda2))))))>
#<alt (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* -1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* -1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* -1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* -1/2 (+ lambda2 (* -1 lambda1))))>
#<alt (sin (* 1/2 lambda1))>
#<alt (+ (sin (* 1/2 lambda1)) (* -1/2 (* lambda2 (cos (* 1/2 lambda1)))))>
#<alt (+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* -1/8 (* lambda2 (sin (* 1/2 lambda1)))))))>
#<alt (+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* 1/2 lambda1))) (* 1/48 (* lambda2 (cos (* 1/2 lambda1)))))))))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (- lambda1 lambda2)))>
#<alt (sin (* 1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* 1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* 1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (sin (* 1/2 (+ lambda1 (* -1 lambda2))))>
#<alt (- 1 (+ (* (cos phi2) (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
20.0ms	lambda1	@	inf	(sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))
10.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))
6.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)))))))))
5.0ms	phi1	@	-inf	(sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))
2.0ms	phi2	@	0	(sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))

rewrite490.0ms (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 (/ (- phi1 phi2) 2))
(sin (/ (- lambda1 lambda2) 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 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 (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 #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)))))))))

simplify592.0ms (1.3%)

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 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))))
(sin (* -1/2 lambda2))
(+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* -1/8 (* lambda1 (sin (* -1/2 lambda2)))) (* 1/2 (cos (* -1/2 lambda2))))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* 1/2 lambda1))
(+ (sin (* 1/2 lambda1)) (* -1/2 (* lambda2 (cos (* 1/2 lambda1)))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* -1/8 (* lambda2 (sin (* 1/2 lambda1)))))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* 1/2 lambda1))) (* 1/48 (* lambda2 (cos (* 1/2 lambda1)))))))))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(- 1 (+ (* (cos phi2) (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 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* 1/2 (* (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))))
(+.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (.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 (.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 (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))) (.f64 phi2 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))) #s(literal -1/2 binary64))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (* phi2 (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))))
(+.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (.f64 phi2 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (.f64 #s(literal 1/2 binary64) phi2) (+.f64 (+.f64 (.f64 #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 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (+.f64 (+.f64 (.f64 #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)) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 1/2 binary64))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (.f64 #s(literal 1/2 binary64) lambda1) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (+.f64 (.f64 lambda1 (-.f64 (.f64 (+.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 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* 1/2 (* (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))))
(+.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (.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 (.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 (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))) (.f64 phi2 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))) #s(literal -1/2 binary64))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (* phi2 (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))))
(+.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (.f64 phi2 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (.f64 #s(literal 1/2 binary64) phi2) (+.f64 (+.f64 (.f64 #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 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (+.f64 (+.f64 (.f64 #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)) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 1/2 binary64))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (.f64 #s(literal 1/2 binary64) lambda1) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (+.f64 (.f64 lambda1 (-.f64 (.f64 (+.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 (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (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)) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (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 (+ (* 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 lambda1 (.f64 (cos.f64 phi1) (cos.f64 phi2))) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))))))
(+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 lambda1 (+.f64 (.f64 (.f64 (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 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)))
(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)))
(- 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 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (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 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(- (+ 1 (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(- (+ 1 (* lambda1 (- (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+.f64 (.f64 lambda1 (-.f64 (.f64 lambda1 (.f64 (neg.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2))) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) (.f64 (.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 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(- (+ 1 (* lambda1 (- (* lambda1 (- (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+.f64 (.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 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 (-.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) lambda1)) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(- (+ 1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 lambda2 (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(- (+ 1 (* lambda2 (- (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))) (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+.f64 (.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 (-.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) 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 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sin (* 1/2 lambda2))
(sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))
(+ (sin (* 1/2 lambda2)) (* -1/2 (* lambda1 (cos (* 1/2 lambda2)))))
(+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (.f64 lambda1 #s(literal -1/2 binary64))))
(+ (sin (* 1/2 lambda2)) (* lambda1 (+ (* -1/2 (cos (* 1/2 lambda2))) (* -1/8 (* lambda1 (sin (* 1/2 lambda2)))))))
(+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (*.f64 #s(literal -1/8 binary64) lambda1)))))
(+ (sin (* 1/2 lambda2)) (* lambda1 (+ (* -1/2 (cos (* 1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* 1/2 lambda2))) (* 1/48 (* lambda1 (cos (* 1/2 lambda2)))))))))
(+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (.f64 lambda1 #s(literal 1/48 binary64))))))))
(sin (* -1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* 1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* 1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* 1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* 1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* -1/2 lambda1))
(sin.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))
(+ (sin (* -1/2 lambda1)) (* 1/2 (* lambda2 (cos (* -1/2 lambda1)))))
(+.f64 (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64))) (.f64 (.f64 #s(literal 1/2 binary64) lambda2) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))))
(+ (sin (* -1/2 lambda1)) (* lambda2 (+ (* -1/8 (* lambda2 (sin (* -1/2 lambda1)))) (* 1/2 (cos (* -1/2 lambda1))))))
(+.f64 (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64))) (.f64 lambda2 (+.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64))) (.f64 #s(literal -1/8 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))))))
(+ (sin (* -1/2 lambda1)) (* lambda2 (+ (* 1/2 (cos (* -1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* -1/2 lambda1))) (* -1/48 (* lambda2 (cos (* -1/2 lambda1)))))))))
(+.f64 (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64))) (.f64 lambda2 (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64))) (.f64 lambda2 #s(literal -1/48 binary64))))))))
(sin (* -1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* -1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* -1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* -1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* -1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* -1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* -1/2 phi2)) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 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 (.f64 (.f64 (cos.f64 phi2) (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 (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/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 phi2)) 2))
(+.f64 (+.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 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 (.f64 (cos.f64 phi2) (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 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.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 (+.f64 #s(literal 1 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (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 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (* 1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #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 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #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 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 phi1))) (.f64 (.f64 lambda2 (.f64 (cos.f64 phi1) (cos.f64 phi2))) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (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 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 (.f64 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (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 (cos.f64 phi2) (cos.f64 phi1))) (.f64 lambda2 (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(literal -1/4 binary64)) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64)))))))))) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (+ (* lambda2 (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/16 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (+ (* -1/48 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1)))) (+ (* 1/48 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/16 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (* (cos (* -1/2 lambda1)) (cos (* 1/2 lambda1)))) (* -1/4 (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* 1/2 lambda1)) (sin (* -1/2 lambda1)))) (* 1/2 (* (cos (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (+.f64 (.f64 lambda2 (+.f64 (.f64 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (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 (cos.f64 phi2) (cos.f64 phi1))) (.f64 lambda2 (+.f64 (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(literal -1/4 binary64)) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64)))))) (.f64 (.f64 lambda2 (.f64 (cos.f64 phi1) (cos.f64 phi2))) (+.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) #s(literal -1/12 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64))) #s(literal 1/12 binary64))))))))) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))

eval224.0ms (0.5%)

Compiler: Compiled 80281 to 3111 computations (96.1% saved)

prune410.0ms (0.9%)

Pruning

70 alts after pruning (70 fresh and 0 done)

	Pruned	Kept	Total
New	1038	70	1108
Fresh	0	0	0
Picked	2	0	2
Done	0	0	0
Total	1040	70	1110

Accuracy

64.7%

Counts

1110 → 70

Alt Table

Click to see full alt table

Status	Accuracy	Program
	57.5%	(.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 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)))
	57.1%	(.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	57.4%	(.f64 (atan2.f64 (/.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)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	56.3%	(.f64 (atan2.f64 (/.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)))
	42.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)) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 1/2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	57.2%	(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (/.f64 (.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.7%	(.f64 (atan2.f64 (sqrt.f64 (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)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	57.4%	(.f64 (atan2.f64 (sqrt.f64 (/.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))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	57.4%	(.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)))
	56.1%	(.f64 (atan2.f64 (sqrt.f64 (-.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)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -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 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (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.6%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (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.6%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	44.1%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (+.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)))
	60.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 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.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)))
	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 (+.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)))
	41.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 (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)))
	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 #s(literal 1/2 binary64) lambda1)) (.f64 (.f64 lambda2 #s(literal -1/2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	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.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 (/.f64 (.f64 (+.f64 (cos.f64 (.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)))
	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 #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))))))))))) (.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 (-.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.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 (-.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)))
	42.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 (+.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)))))) (.f64 R #s(literal 2 binary64)))
	50.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) (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.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 (-.f64 lambda1 lambda2) #s(literal -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 #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)))
	42.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 (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.9%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (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)))
	27.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 (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)))
	34.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 (+.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)))
	41.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 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 #s(literal -1/8 binary64) phi2))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
▶	41.3%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 phi2 (+.f64 (.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 #s(literal 1/48 binary64)))))))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	44.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 (-.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)))
	50.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 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)))
	47.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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	43.2%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 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)))
	47.5%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	40.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)))
	41.7%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 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 lambda1 (.f64 (cos.f64 phi1) (cos.f64 phi2))) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	44.3%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (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)))
	48.1%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (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)))
	57.2%	(.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)))
	57.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 (.f64 (+.f64 (cos.f64 (.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)))
▶	57.3%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	41.0%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 (.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (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)))
▶	61.7%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	43.2%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	40.1%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (+.f64 (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -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.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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	56.3%	(.f64 (atan2.f64 (sqrt.f64 (.f64 (-.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (pow.f64 (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	57.4%	(.f64 (atan2.f64 (sqrt.f64 (.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)))))))))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	57.2%	(.f64 (atan2.f64 (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)))
	62.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	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.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 #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.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
	44.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 lambda2 (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
	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)))))))
	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 (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)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 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.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 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 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))))))))))
	50.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	47.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
	44.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.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))))))))
	50.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 (.f64 (cos.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))))))))
	42.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (+.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)))))))))
	42.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 (.f64 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)))))))))
	41.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (+.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 (-.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) 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)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (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)))))))))
	46.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 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 11382 to 5740 computations (49.6% saved)

simplify274.0ms (0.6%)

Algorithm

1×	egg-herbie

Localize:

Found 20 expressions of interest:

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

3668×	`-lowering-.f32`
3668×	`-lowering-.f64`
2322×	`+-lowering-+.f64`
2322×	`+-lowering-+.f32`
1116×	`--lowering--.f32`

Iterations

Useful iterations: 4 (0.0ms)

Iter	Nodes	Cost
0	117	2395
1	277	2234
2	793	2186
3	2231	2157
4	7781	2152
0	8221	2152

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

localize1.3s (2.7%)

Localize:

Found 20 expressions of interest:

New	Metric	Score	Program
✓	accuracy	99.5%	(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 phi2 (+.f64 (.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (*.f64 phi2 #s(literal 1/48 binary64)))))))) #s(literal 2 binary64))))
✓	accuracy	99.2%	(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (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	99.6%	(-.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 (.f64 (cos.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))))
✓	accuracy	99.2%	(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 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	91.7%	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
✓	accuracy	91.7%	(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
✓	accuracy	99.7%	(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
✓	accuracy	99.5%	(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
✓	accuracy	99.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))))
✓	accuracy	91.7%	(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
✓	accuracy	91.6%	(cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64)))
✓	accuracy	90.9%	(-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))
✓	accuracy	90.9%	(+.f64 (cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64))
✓	accuracy	82.7%	(-.f64 #s(literal 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	99.7%	(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
✓	accuracy	99.5%	(-.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 (*.f64 (cos.f64 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	99.2%	(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 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	91.7%	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))

Results

587.0ms	106×	1	valid
263.0ms	143×	0	invalid
9.0ms	1×	3	valid
7.0ms	2×	1	invalid
6.0ms	4×	0	valid

Compiler

Compiled 2488 to 118 computations (95.3% saved)

Precisions

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

ival-sin: 108.0ms (20.3% of total)

ival-mult: 100.0ms (18.8% of total)

ival-cos: 91.0ms (17.1% of total)

ival-atan2: 37.0ms (7% of total)

ival-add: 36.0ms (6.8% of total)

ival-div: 35.0ms (6.6% of total)

backward-pass: 29.0ms (5.5% of total)

ival-pow: 25.0ms (4.7% of total)

...c/correct-round.rkt:119:19: 25.0ms (4.7% of total)

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

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

const: 2.0ms (0.4% of total)

series366.0ms (0.8%)

Counts

33 → 1428

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

Calls

357 calls:

Time	Variable		Point	Expression
39.0ms	lambda2	@	-inf	(* (atan2 (sqrt (+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2))) (sqrt (+ (+ 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (+ (cos (* (- lambda1 lambda2) 1)) -1) (* (cos phi1) (cos phi2))) 2)))) (* R 2))
22.0ms	lambda1	@	0	(sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (+ (sin (* phi1 1/2)) (* phi2 (+ (* -1/2 (cos (* phi1 1/2))) (* phi2 (+ (* -1/8 (sin (* phi1 1/2))) (* (cos (* phi1 1/2)) (* phi2 1/48))))))) 2))))
15.0ms	lambda1	@	inf	(sqrt (+ (- 1/2 (* 1/2 (cos (* 2 (/ (- phi1 phi2) 2))))) (/ (* (* (cos phi1) (cos phi2)) (- 1 (cos (* (- lambda1 lambda2) 1)))) 2)))
13.0ms	phi1	@	0	(atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (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)))))))
8.0ms	lambda2	@	0	(sqrt (+ 1 (- (* (* (cos phi1) (cos phi2)) (* (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- lambda1 lambda2) -2)))) (pow (+ (sin (* phi1 1/2)) (* phi2 (+ (* -1/2 (cos (* phi1 1/2))) (* phi2 (+ (* -1/8 (sin (* phi1 1/2))) (* (cos (* phi1 1/2)) (* phi2 1/48))))))) 2))))

rewrite429.0ms (0.9%)

Algorithm

1×	batch-egg-rewrite

Rules

3580×	`-lowering-.f32`
3580×	`-lowering-.f64`
2248×	`/-lowering-/.f32`
2248×	`/-lowering-/.f64`
1740×	`+-lowering-+.f64`

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	117	1214
1	687	1066
2	6731	1066
0	8060	1066

Stop Event

1×	iter limit
1×	node limit

Counts

33 → 405

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

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

simplify1.2s (2.6%)

Algorithm

1×	egg-herbie

Rules

6084×	`-lowering-.f32`
6084×	`-lowering-.f64`
3260×	`+-lowering-+.f64`
3260×	`+-lowering-+.f32`
1842×	`*-commutative`

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	1837	70959
1	6312	70347
0	8090	70347

Stop Event

1×	iter limit
1×	node limit

Counts

1428 → 1428

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

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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (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 (.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 (neg.f64 lambda1)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1)))) #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 (- (* (cos (* 1/2 phi2)) (sin (* 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 (neg.f64 lambda1)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1)))) #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 (- (* (cos (* 1/2 phi2)) (sin (* 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 (neg.f64 lambda1)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1)))) #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 (- (* (cos (* 1/2 phi2)) (sin (* 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 (neg.f64 lambda1)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (neg.f64 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 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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 phi2 (neg.f64 phi1)))) #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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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 phi2 (neg.f64 phi1)))) #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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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 phi2 (neg.f64 phi1)))) #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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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 phi2 (neg.f64 phi1)))) #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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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 (neg.f64 lambda1)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1)))) #s(literal 2 binary64))))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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 (neg.f64 lambda1)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1)))) #s(literal 2 binary64))))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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 (neg.f64 lambda1)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1)))) #s(literal 2 binary64))))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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 (neg.f64 lambda1)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (neg.f64 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 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (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)))))
(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 (neg.f64 lambda1)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1)))) #s(literal 2 binary64)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (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 (neg.f64 lambda1)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1)))) #s(literal 2 binary64)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (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 (neg.f64 lambda1)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1)))) #s(literal 2 binary64)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (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 (neg.f64 lambda1)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (neg.f64 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 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (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)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (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)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (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)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (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)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.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 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 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (-.f64 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (+.f64 (.f64 (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 #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 (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 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))) (-.f64 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (+.f64 (.f64 (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 (neg.f64 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 (neg.f64 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 (neg.f64 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 (neg.f64 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 (.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 #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 (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 (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (.f64 phi2 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (+.f64 (+.f64 (+.f64 (.f64 (.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 #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 (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 (.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 (.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 #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 (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.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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.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 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.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 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.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 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 (neg.f64 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 (neg.f64 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 (neg.f64 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 (neg.f64 lambda1)))) #s(literal 2 binary64)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* -1/2 (* (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (.f64 lambda2 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (.f64 #s(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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (.f64 #s(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 (- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 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 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (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 (-.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 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (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 (-.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 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (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 (-.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 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (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 (-.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 #s(literal -1 binary64) (+.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 (*.f64 #s(literal -1 binary64) (+.f64 lambda2 (neg.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 (* -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 #s(literal -1 binary64) (+.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 (*.f64 #s(literal -1 binary64) (+.f64 lambda2 (neg.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 (* -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 #s(literal -1 binary64) (+.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 (*.f64 #s(literal -1 binary64) (+.f64 lambda2 (neg.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 (* -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 #s(literal -1 binary64) (+.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 (*.f64 #s(literal -1 binary64) (+.f64 lambda2 (neg.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)) 1))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 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 (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 (-.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 (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 (-.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 (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 (-.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 (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 (-.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 #s(literal -1 binary64) (+.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 (*.f64 #s(literal -1 binary64) (+.f64 lambda2 (neg.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 (* -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 #s(literal -1 binary64) (+.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 (*.f64 #s(literal -1 binary64) (+.f64 lambda2 (neg.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 (* -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 #s(literal -1 binary64) (+.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 (*.f64 #s(literal -1 binary64) (+.f64 lambda2 (neg.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 (* -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 #s(literal -1 binary64) (+.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 (*.f64 #s(literal -1 binary64) (+.f64 lambda2 (neg.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)) 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) (.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 (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 (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 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))))) (.f64 phi2 (-.f64 (.f64 #s(literal -1/4 binary64) (-.f64 (.f64 (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi1))) (/.f64 (.f64 #s(literal 1/16 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))) (* phi2 (+ (* -1/4 (* (sin phi1) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (* phi2 (+ (* -1/2 (* (* phi2 (+ (* -1/4 (/ (* (sin phi1) (- (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos phi1)) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))))))) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))) (* -1/12 (sin phi1)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (* 1/2 (* (- (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos phi1)) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))) (.f64 phi2 (+.f64 (.f64 (.f64 #s(literal -1/4 binary64) (sin.f64 phi1)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))))) (.f64 phi2 (+.f64 (.f64 #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 #s(literal 1/4 binary64) (.f64 (.f64 lambda1 (.f64 (.f64 (cos.f64 phi1) (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 (.f64 (cos.f64 phi1) (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 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))) (.f64 lambda1 (-.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda2))) (/.f64 (.f64 #s(literal 1/16 binary64) (.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (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 (.f64 (cos.f64 phi1) (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 #s(literal -1/12 binary64) (.f64 (.f64 (cos.f64 phi1) (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 (.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 (-.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 #s(literal 1/4 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda2))) (/.f64 (.f64 #s(literal 1/16 binary64) (.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (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 #s(literal -1 binary64) (+.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 #s(literal -1 binary64) (+.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 #s(literal -1 binary64) (+.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 #s(literal -1 binary64) (+.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 lambda2 (.f64 (.f64 (cos.f64 phi1) (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 (.f64 (cos.f64 phi1) (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 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (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) (cos.f64 lambda1)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (/.f64 (.f64 #s(literal 1/16 binary64) (.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (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 (.f64 (cos.f64 phi1) (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 (.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 (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 (.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 (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 #s(literal -1/2 binary64) (cos.f64 phi2)))
(- (+ 1/2 (+ (* 1/2 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (* phi1 (- (* phi1 (- (+ (* -1/4 (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))) (* -1/12 (* phi1 (sin (neg phi2))))) (* -1/4 (cos (neg phi2))))) (* -1/2 (sin (neg phi2))))))) (* 1/2 (cos (neg phi2))))
(+.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (.f64 (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 #s(literal -1/2 binary64) (cos.f64 phi2)))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (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 #s(literal -1/2 binary64) (cos.f64 phi1)))
(- (+ 1/2 (+ (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* phi2 (- (* phi2 (- (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* -1/4 (cos phi1)))) (* 1/2 (sin phi1)))))) (* 1/2 (cos phi1)))
(+.f64 (+.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 #s(literal -1/2 binary64) (cos.f64 phi1)))
(- (+ 1/2 (+ (* 1/2 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* phi2 (- (* phi2 (- (+ (* -1/4 (* (cos phi1) (- 1 (cos (- lambda1 lambda2))))) (* 1/12 (* phi2 (sin phi1)))) (* -1/4 (cos phi1)))) (* 1/2 (sin phi1)))))) (* 1/2 (cos phi1)))
(+.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (.f64 (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 #s(literal -1/2 binary64) (cos.f64 phi1)))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (* (cos phi1) (* (cos phi2) (- 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #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 (.f64 (cos.f64 phi1) (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 #s(literal 1/4 binary64) (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 phi2) (cos.f64 lambda2)))) (.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (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 #s(literal 1/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 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 (.f64 #s(literal -1/12 binary64) lambda1) (.f64 (.f64 (cos.f64 phi1) (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 #s(literal -1 binary64) (+.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 #s(literal -1 binary64) (+.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 #s(literal -1 binary64) (+.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 #s(literal -1 binary64) (+.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 (.f64 (cos.f64 phi1) (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 #s(literal -1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (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 #s(literal -1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (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 (.f64 (cos.f64 phi1) (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 lambda2))) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (+ 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 (.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 (neg.f64 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) (+.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))))))
(* 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 (.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 (neg.f64 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) (+.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))))))
(* 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 (.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 (neg.f64 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) (+.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))))))
(* 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 (.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 (neg.f64 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) (+.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))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (* -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 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (* -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 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (* -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 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (* -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 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (* -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 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (* -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 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (* -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 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (* -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 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (+ 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 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.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))))))
(* 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 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.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))))))
(* 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 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.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))))))
(* 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 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.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))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 lambda2))) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 lambda2))) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 lambda2))) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 lambda2))) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 lambda2))) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 lambda2))) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 lambda2))) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 lambda2))) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 (+ lambda2 (* -1 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 (neg.f64 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) (+.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)))))
(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 (pow.f64 (sin.f64 (.f64 #s(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 (neg.f64 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) (+.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)))))
(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 (pow.f64 (sin.f64 (.f64 #s(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 (neg.f64 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) (+.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)))))
(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 (pow.f64 (sin.f64 (.f64 #s(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 (neg.f64 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) (+.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)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 lambda2))) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 lambda2))) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 lambda2))) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 lambda2))) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 lambda2))) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 lambda2))) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 lambda2))) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 (* -1 lambda2)))) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 (* -1 lambda2)))) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 (* -1 lambda2)))) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 (* -1 lambda2)))) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 lambda2))) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 lambda2))) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 lambda2))) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 lambda2))) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 lambda2))) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 lambda2))) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 lambda2))) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 lambda2))) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 lambda2))) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 lambda2))) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 lambda2))) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 lambda2))) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 lambda2))) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 lambda2))) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 lambda2))) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 lambda2))) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 lambda2))) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 lambda2))) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 lambda2))) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 lambda2))) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 lambda2))) 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 (neg.f64 phi1)))) #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) (-.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)))))
(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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.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)))))
(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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.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)))))
(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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.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 (+ (* (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.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 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.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 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.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 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 (neg.f64 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 (neg.f64 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 (neg.f64 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 (neg.f64 lambda1)))) #s(literal 2 binary64)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* -1/2 (* (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (.f64 lambda2 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (.f64 #s(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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (.f64 #s(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))))
(sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* -1/2 (* (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))
(+.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (* phi2 (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))))
(+.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (.f64 phi2 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (+.f64 (+.f64 (+.f64 (.f64 (.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 #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 (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 (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (.f64 phi2 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (+.f64 (+.f64 (+.f64 (.f64 (.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 #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 (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 (.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 (.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 #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 (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.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 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 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 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (-.f64 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (+.f64 (.f64 (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 #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 (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 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))) (-.f64 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (+.f64 (.f64 (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 (neg.f64 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 (neg.f64 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 (neg.f64 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 (neg.f64 phi1)))) #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 (.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)))))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* 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 lambda1 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))))))
(+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (.f64 lambda1 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal -1/6 binary64)))))))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (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 (neg.f64 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 (neg.f64 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 (neg.f64 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 (neg.f64 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 #s(literal 0 binary64) lambda2) (.f64 (.f64 (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 (.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 (neg.f64 (.f64 (.f64 (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 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)))))))))
(+ (* 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 (neg.f64 (.f64 (.f64 (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 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)))))))))
(+ (* (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)))
(+ (* (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 (-.f64 #s(literal 0 binary64) 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 (neg.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))) (.f64 phi2 (+.f64 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 #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))))))))
(+ (* 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 (neg.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #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 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)))))))))
(+ (* (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 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 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))
(+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(+.f64 (+.f64 (.f64 (cos.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 #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 (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 #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 (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 (neg.f64 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 (neg.f64 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 (neg.f64 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 (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 (+ (* 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/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 (+ (* 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.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 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/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 (+ (* 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.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 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/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 (+ (* 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.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 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/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 (+ (* 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.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 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/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 (+ (* 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/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 (+ (* 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/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 (+ (* 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/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 (+ (* 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/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 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (pow (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 (neg.f64 lambda1)))) #s(literal 2 binary64))))) (sqrt.f64 (-.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 (.f64 (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 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 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (pow (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 (neg.f64 lambda1)))) #s(literal 2 binary64))))) (sqrt.f64 (-.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 (.f64 (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 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 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (pow (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 (neg.f64 lambda1)))) #s(literal 2 binary64))))) (sqrt.f64 (-.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 (.f64 (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 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 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (pow (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 (neg.f64 lambda1)))) #s(literal 2 binary64))))) (sqrt.f64 (-.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 (.f64 (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 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 (+ (* 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/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 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (pow (sin (* -1/2 phi2)) 2))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/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 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (pow (sin (* -1/2 phi2)) 2))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/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 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (pow (sin (* -1/2 phi2)) 2))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/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 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (pow (sin (* -1/2 phi2)) 2))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/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 (+ (* 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 #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 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/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 (+ (* 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 #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 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/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 (+ (* 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 #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 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/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 (+ (* 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 #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 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/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 (+ (* 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 #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 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/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 (+ (* 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 #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 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/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 (+ (* 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 #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 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/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 (+ (* 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 #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 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/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 (+ (* 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 #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 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/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 (+ (* 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 #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 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/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 (+ (* 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 #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 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/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 (+ (* 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 #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 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/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 (+ (* 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 #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 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/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 (+ (* 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 #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 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/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 (+ (* 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 #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 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/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 (+ (* 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 #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 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/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 (+ (* 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 #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 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/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 (+ (* 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 #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 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/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 (+ (* 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 #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 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/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 (+ (* 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 #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 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/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 (+ (* 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 #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 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/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 (+ (* 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 #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 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/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 (+ (* 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 #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 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/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 (+ (* 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 #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 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/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 (+ (* 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 #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 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/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 (+ (* 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 #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 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/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 (+ (* 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 #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 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/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 (+ (* 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 #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 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/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 (+ (* 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 #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 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/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 (+ (* 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 #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 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/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 (+ (* 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 #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 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/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 (+ (* 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 #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 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/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 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (pow (sin (* -1/2 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 (neg.f64 lambda1)))) #s(literal 2 binary64))))) (sqrt.f64 (-.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 (.f64 (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 phi2 #s(literal -1/2 binary64))) #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 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (pow (sin (* -1/2 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 (neg.f64 lambda1)))) #s(literal 2 binary64))))) (sqrt.f64 (-.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 (.f64 (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 phi2 #s(literal -1/2 binary64))) #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 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (pow (sin (* -1/2 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 (neg.f64 lambda1)))) #s(literal 2 binary64))))) (sqrt.f64 (-.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 (.f64 (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 phi2 #s(literal -1/2 binary64))) #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 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (pow (sin (* -1/2 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 (neg.f64 lambda1)))) #s(literal 2 binary64))))) (sqrt.f64 (-.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 (.f64 (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 phi2 #s(literal -1/2 binary64))) #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 (+ (* 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 #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 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/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 (+ (* 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 #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 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/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 (+ (* 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 #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 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/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 (+ (* 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 #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 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/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 (+ (* 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 #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 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/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 (+ (* 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 #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 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/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 (+ (* 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 #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 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/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 (+ (* 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 #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 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/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 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (pow (sin (* -1/2 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 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/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 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (pow (sin (* -1/2 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 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/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 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (pow (sin (* -1/2 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 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/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 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (pow (sin (* -1/2 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 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 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))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 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))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 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))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 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))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 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))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 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))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 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))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 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))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/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 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.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 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/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 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.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 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/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 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.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 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/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 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.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 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 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))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 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))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 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))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 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))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 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))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 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))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 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))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 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))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/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 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/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 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/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 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/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 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 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))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 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))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 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))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 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))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 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))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 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))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 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))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 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))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/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 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (pow (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 (neg.f64 lambda1)))) #s(literal 2 binary64))))) (sqrt.f64 (-.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 (.f64 (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 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 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (pow (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 (neg.f64 lambda1)))) #s(literal 2 binary64))))) (sqrt.f64 (-.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 (.f64 (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 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 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (pow (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 (neg.f64 lambda1)))) #s(literal 2 binary64))))) (sqrt.f64 (-.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 (.f64 (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 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 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (pow (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 (neg.f64 lambda1)))) #s(literal 2 binary64))))) (sqrt.f64 (-.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 (.f64 (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 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 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 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))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 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))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 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))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 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))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 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))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 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))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 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))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/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 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (pow (sin (* -1/2 phi2)) 2))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/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 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (pow (sin (* -1/2 phi2)) 2))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/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 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (pow (sin (* -1/2 phi2)) 2))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/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 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (pow (sin (* -1/2 phi2)) 2))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi2) (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))))
(sqrt (- 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))))
(sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))
(+ (sqrt (- 1 (+ (* (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 (- 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))))))))
(+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 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 #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 (- 1 (+ (* (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 (- 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))))))) (* -1/8 (* (* phi1 (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2))) (sqrt (/ 1 (pow (- 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) 3))))))))
(+.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 #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 #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 #s(literal -1/8 binary64) (.f64 phi1 (.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))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.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)))) #s(literal 3 binary64))))))))
(+ (sqrt (- 1 (+ (* (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 (- 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))))))) (* phi1 (+ (* -1/8 (* (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (sqrt (/ 1 (pow (- 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) 3))))) (* -1/16 (* (* phi1 (* (pow (cos (* -1/2 phi2)) 3) (pow (sin (* -1/2 phi2)) 3))) (sqrt (/ 1 (pow (- 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) 5))))))))))
(+.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 #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 #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 #s(literal -1/8 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)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.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)))) #s(literal 3 binary64))))) (.f64 (.f64 #s(literal -1/16 binary64) (.f64 phi1 (.f64 (pow.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 3 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.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)))) #s(literal 5 binary64))))))))))
(* (sqrt (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (sqrt -1))
(.f64 (sqrt.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))) (sqrt.f64 #s(literal -1 binary64)))
(* phi1 (+ (* 1/2 (* (sqrt (/ 1 (* (pow phi1 3) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (/ (- 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (sqrt -1)))) (* (sqrt (/ (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) phi1)) (sqrt -1))))
(.f64 phi1 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 phi1))) (.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))))) (sqrt.f64 #s(literal -1 binary64)))) (.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 (/.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) phi1)))))
(* phi1 (+ (* -1/8 (* (sqrt (/ 1 (* (pow phi1 5) (* (pow (cos (* -1/2 phi2)) 3) (pow (sin (* -1/2 phi2)) 3))))) (/ (pow (- 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) 2) (pow (sqrt -1) 3)))) (+ (* 1/2 (* (sqrt (/ 1 (* (pow phi1 3) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (/ (- 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (sqrt -1)))) (* (sqrt (/ (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) phi1)) (sqrt -1)))))
(.f64 phi1 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 phi1))) (.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))))) (sqrt.f64 #s(literal -1 binary64)))) (.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 (/.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))) phi1)))) (.f64 (.f64 #s(literal -1/8 binary64) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 5 binary64))) (.f64 (pow.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 3 binary64)))))) (/.f64 (pow.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)))) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 3 binary64))))))
(* phi1 (+ (* -1/8 (* (sqrt (/ 1 (* (pow phi1 5) (* (pow (cos (* -1/2 phi2)) 3) (pow (sin (* -1/2 phi2)) 3))))) (/ (pow (- 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) 2) (pow (sqrt -1) 3)))) (+ (* 1/16 (* (sqrt (/ 1 (* (pow phi1 7) (* (pow (cos (* -1/2 phi2)) 5) (pow (sin (* -1/2 phi2)) 5))))) (/ (pow (- 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) 3) (pow (sqrt -1) 5)))) (+ (* 1/2 (* (sqrt (/ 1 (* (pow phi1 3) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (/ (- 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (sqrt -1)))) (* (sqrt (/ (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) phi1)) (sqrt -1))))))
(.f64 phi1 (+.f64 (.f64 (.f64 #s(literal -1/8 binary64) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 5 binary64))) (.f64 (pow.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 3 binary64)))))) (/.f64 (pow.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)))) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 3 binary64)))) (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 phi1))) (.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))))) (sqrt.f64 #s(literal -1 binary64)))) (.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 (/.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))) phi1)))) (.f64 (.f64 #s(literal 1/16 binary64) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 7 binary64))) (.f64 (pow.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 5 binary64)) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 5 binary64)))))) (/.f64 (pow.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)))) #s(literal 3 binary64)) (pow.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 5 binary64)))))))
(* -1 (* (sqrt (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (sqrt -1)))
(neg.f64 (.f64 (sqrt.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))) (sqrt.f64 #s(literal -1 binary64))))
(* -1 (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (* (pow phi1 3) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (* (sqrt -1) (- 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (* (sqrt (/ (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) phi1)) (sqrt -1)))))
(.f64 (neg.f64 phi1) (+.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 (/.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))) phi1))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 phi1))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))) (sqrt.f64 #s(literal -1 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 (+ (* -1/8 (* (sqrt (/ 1 (* (pow phi1 5) (* (pow (cos (* -1/2 phi2)) 3) (pow (sin (* -1/2 phi2)) 3))))) (* (sqrt -1) (pow (- 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) 2)))) (+ (* 1/2 (* (sqrt (/ 1 (* (pow phi1 3) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (* (sqrt -1) (- 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (* (sqrt (/ (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) phi1)) (sqrt -1))))))
(neg.f64 (.f64 phi1 (+.f64 (+.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 (/.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))) phi1))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 phi1))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))) (sqrt.f64 #s(literal -1 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))))))) (.f64 (.f64 #s(literal -1/8 binary64) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 5 binary64))) (.f64 (pow.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 3 binary64)))))) (.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.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)))) #s(literal 2 binary64)))))))
(* -1 (* phi1 (+ (* -1/8 (* (sqrt (/ 1 (* (pow phi1 5) (* (pow (cos (* -1/2 phi2)) 3) (pow (sin (* -1/2 phi2)) 3))))) (* (sqrt -1) (pow (- 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) 2)))) (+ (* 1/16 (* (sqrt (/ 1 (* (pow phi1 7) (* (pow (cos (* -1/2 phi2)) 5) (pow (sin (* -1/2 phi2)) 5))))) (* (sqrt -1) (pow (- 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) 3)))) (+ (* 1/2 (* (sqrt (/ 1 (* (pow phi1 3) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (* (sqrt -1) (- 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (* (sqrt (/ (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) phi1)) (sqrt -1)))))))
(.f64 (neg.f64 phi1) (+.f64 (.f64 (.f64 #s(literal -1/8 binary64) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 5 binary64))) (.f64 (pow.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 3 binary64)))))) (.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.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)))) #s(literal 2 binary64)))) (+.f64 (+.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 (/.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))) phi1))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 phi1 phi1))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))) (sqrt.f64 #s(literal -1 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))))))) (.f64 (.f64 #s(literal 1/16 binary64) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 7 binary64))) (.f64 (pow.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 5 binary64)) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 5 binary64)))))) (.f64 (pow.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)))) #s(literal 3 binary64)) (sqrt.f64 #s(literal -1 binary64)))))))
(sqrt (- 1 (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))
(+ (sqrt (- 1 (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (* 1/4 (* (* phi1 phi2) (sqrt (/ 1 (- 1 (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))))))
(+.f64 (sqrt.f64 (-.f64 #s(literal 1 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) (.f64 phi1 phi2)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))))
(+ (sqrt (- 1 (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (* phi2 (+ (* -1/2 (* (* phi2 (+ 1/4 (+ (* -1/2 (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* 1/16 (/ (pow phi1 2) (- 1 (pow (sin (* 1/2 (- lambda1 lambda2))) 2))))))) (sqrt (/ 1 (- 1 (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))))) (* 1/4 (* phi1 (sqrt (/ 1 (- 1 (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))))))))
(+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (.f64 phi2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 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) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) #s(literal -1/2 binary64))) (/.f64 (.f64 #s(literal 1/16 binary64) (.f64 phi1 phi1)) (-.f64 #s(literal 1 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) phi1) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))))))
(+ (sqrt (- 1 (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (* phi2 (+ (* 1/4 (* phi1 (sqrt (/ 1 (- 1 (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))))) (* phi2 (+ (* -1/2 (* (* phi2 (+ (* -1/4 (/ (* phi1 (+ 1/4 (+ (* -1/2 (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* 1/16 (/ (pow phi1 2) (- 1 (pow (sin (* 1/2 (- lambda1 lambda2))) 2))))))) (- 1 (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (* 1/12 phi1))) (sqrt (/ 1 (- 1 (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))))) (* -1/2 (* (+ 1/4 (+ (* -1/2 (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* 1/16 (/ (pow phi1 2) (- 1 (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))))) (sqrt (/ 1 (- 1 (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))))))))))
(+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (.f64 phi2 (+.f64 (.f64 (.f64 #s(literal 1/4 binary64) phi1) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (.f64 phi2 (.f64 #s(literal -1/2 binary64) (+.f64 (.f64 phi2 (.f64 (+.f64 (/.f64 (.f64 #s(literal -1/4 binary64) (.f64 phi1 (+.f64 (+.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) #s(literal -1/2 binary64))) (/.f64 (.f64 #s(literal 1/16 binary64) (.f64 phi1 phi1)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (.f64 phi1 #s(literal 1/12 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 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) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) #s(literal -1/2 binary64))) (/.f64 (.f64 #s(literal 1/16 binary64) (.f64 phi1 phi1)) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))))
(sqrt (- 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)))))
(sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))
(sqrt (- 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)))))
(sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))
(sqrt (- 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)))))
(sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))
(sqrt (- 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)))))
(sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))
(sqrt (- 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)))))
(sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))
(sqrt (- 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)))))
(sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))
(sqrt (- 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)))))
(sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))
(sqrt (- 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)))))
(sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))
(sqrt (- 1 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (pow (sin (* -1/2 phi2)) 2)))))
(sqrt.f64 (-.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 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))
(+ (sqrt (- 1 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (pow (sin (* -1/2 phi2)) 2))))) (* -1/2 (* (* lambda1 (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (- 1 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (pow (sin (* -1/2 phi2)) 2)))))))))
(+.f64 (sqrt.f64 (-.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 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) (.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 lambda1 (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 #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 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))))))
(+ (sqrt (- 1 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (pow (sin (* -1/2 phi2)) 2))))) (* lambda1 (+ (* -1/2 (* (* lambda1 (+ (* 1/4 (/ (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2))) (- 1 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (sqrt (/ 1 (- 1 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (pow (sin (* -1/2 phi2)) 2)))))))) (* -1/2 (* (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (sqrt (/ 1 (- 1 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (pow (sin (* -1/2 phi2)) 2)))))))))))
(+.f64 (sqrt.f64 (-.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 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 (-.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 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))) (.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 (.f64 #s(literal 1/4 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 (-.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 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))))) (.f64 (.f64 (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 #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 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))))))))
(+ (sqrt (- 1 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (pow (sin (* -1/2 phi2)) 2))))) (* lambda1 (+ (* -1/2 (* (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (sqrt (/ 1 (- 1 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (pow (sin (* -1/2 phi2)) 2)))))))) (* lambda1 (+ (* -1/2 (* (* lambda1 (+ (* 1/2 (/ (* (cos phi2) (* (cos (* -1/2 lambda2)) (* (sin (* -1/2 lambda2)) (+ (* 1/4 (/ (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2))) (- 1 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))))) (- 1 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (sqrt (/ 1 (- 1 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (pow (sin (* -1/2 phi2)) 2)))))))) (* -1/2 (* (+ (* 1/4 (/ (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2))) (- 1 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (sqrt (/ 1 (- 1 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (pow (sin (* -1/2 phi2)) 2)))))))))))))
(+.f64 (sqrt.f64 (-.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 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (.f64 (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 #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 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 (-.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 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))) (.f64 lambda1 (+.f64 (.f64 (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 (.f64 #s(literal 1/2 binary64) (.f64 (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 phi2) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (.f64 #s(literal 1/4 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 (-.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 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))))))) (-.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 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.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 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))) (+.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 (.f64 #s(literal 1/4 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 (-.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 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))))))))))
(sqrt (- 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)))))
(sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))
(sqrt (- 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)))))
(sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))
(sqrt (- 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)))))
(sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))
(sqrt (- 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)))))
(sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))
(sqrt (- 1 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (pow (sin (* -1/2 phi2)) 2)))))
(sqrt.f64 (-.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 (.f64 (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 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))
(sqrt (- 1 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (pow (sin (* -1/2 phi2)) 2)))))
(sqrt.f64 (-.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 (.f64 (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 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))
(sqrt (- 1 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (pow (sin (* -1/2 phi2)) 2)))))
(sqrt.f64 (-.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 (.f64 (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 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))
(sqrt (- 1 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (pow (sin (* -1/2 phi2)) 2)))))
(sqrt.f64 (-.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 (.f64 (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 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))
(sqrt (- 1 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)))))
(sqrt.f64 (-.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))))))
(+ (sqrt (- 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/2 (* (* lambda2 (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 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 (sqrt.f64 (-.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)))))) (.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.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 #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)))))))))
(+ (sqrt (- 1 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2))))) (* lambda2 (+ (* -1/2 (* (* lambda2 (+ (* 1/4 (/ (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2))) (- 1 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))) (sqrt (/ 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/2 (* (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (sqrt (/ 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 (sqrt.f64 (-.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)))))) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.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))))))) (.f64 lambda2 (+.f64 (.f64 (cos.f64 phi2) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (-.f64 (-.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)))))))))) (.f64 (.f64 #s(literal 1/2 binary64) (.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 #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)))))))))))
(+ (sqrt (- 1 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2))))) (* lambda2 (+ (* 1/2 (* (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (sqrt (/ 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)))))))) (* lambda2 (+ (* -1/2 (* (* lambda2 (+ (* -1/2 (/ (* (cos phi2) (* (cos (* 1/2 lambda1)) (* (sin (* 1/2 lambda1)) (+ (* 1/4 (/ (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2))) (- 1 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))) (- 1 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (sqrt (/ 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/2 (* (+ (* 1/4 (/ (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2))) (- 1 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (sqrt (/ 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 (sqrt.f64 (-.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)))))) (.f64 lambda2 (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (.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 #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)))))))) (.f64 lambda2 (.f64 #s(literal -1/2 binary64) (+.f64 (.f64 lambda2 (.f64 (+.f64 (.f64 (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 (.f64 #s(literal -1/2 binary64) (.f64 (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 (cos.f64 phi2) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 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 (-.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)))))))))) (-.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))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.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))))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.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))))))) (+.f64 (.f64 (cos.f64 phi2) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (-.f64 (-.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))))))))))))))
(sqrt (- 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)))))
(sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))
(sqrt (- 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)))))
(sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))
(sqrt (- 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)))))
(sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))
(sqrt (- 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)))))
(sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))
(sqrt (- 1 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (pow (sin (* -1/2 phi2)) 2)))))
(sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))
(sqrt (- 1 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (pow (sin (* -1/2 phi2)) 2)))))
(sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))
(sqrt (- 1 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (pow (sin (* -1/2 phi2)) 2)))))
(sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))
(sqrt (- 1 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (pow (sin (* -1/2 phi2)) 2)))))
(sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (+ (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))))))))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (+ (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))))))))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (+ (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))))))))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (+ (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))))))))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (+ (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))))))))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (+ (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))))))))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (+ (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))))))))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (+ (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))))))))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (+ (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))))))))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (+ (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))))))))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (+ (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))))))))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (+ (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))))))))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (+ (sin (* 1/2 phi1)) (+ (* -1/2 (* phi2 (cos (* 1/2 phi1)))) (+ (* -1/8 (* (pow phi2 2) (sin (* 1/2 phi1)))) (* 1/48 (* (pow phi2 3) (cos (* 1/2 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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (+.f64 (+.f64 (.f64 (.f64 phi2 #s(literal -1/2 binary64)) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 #s(literal -1/8 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 phi2)))) (.f64 #s(literal 1/48 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (.f64 phi2 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)) (+ (* -1/2 (* phi2 (cos (* 1/2 phi1)))) (+ (* -1/8 (* (pow phi2 2) (sin (* 1/2 phi1)))) (* 1/48 (* (pow phi2 3) (cos (* 1/2 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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (+.f64 (+.f64 (.f64 (.f64 phi2 #s(literal -1/2 binary64)) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 #s(literal -1/8 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 phi2)))) (.f64 #s(literal 1/48 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (.f64 phi2 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)) (+ (* -1/2 (* phi2 (cos (* 1/2 phi1)))) (+ (* -1/8 (* (pow phi2 2) (sin (* 1/2 phi1)))) (* 1/48 (* (pow phi2 3) (cos (* 1/2 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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (+.f64 (+.f64 (.f64 (.f64 phi2 #s(literal -1/2 binary64)) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 #s(literal -1/8 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 phi2)))) (.f64 #s(literal 1/48 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (.f64 phi2 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)) (+ (* -1/2 (* phi2 (cos (* 1/2 phi1)))) (+ (* -1/8 (* (pow phi2 2) (sin (* 1/2 phi1)))) (* 1/48 (* (pow phi2 3) (cos (* 1/2 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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (+.f64 (+.f64 (.f64 (.f64 phi2 #s(literal -1/2 binary64)) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 #s(literal -1/8 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 phi2)))) (.f64 #s(literal 1/48 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (.f64 phi2 phi2)))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (+ (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))))))))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 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 phi1 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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 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 phi1 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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 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 phi1 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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (+ (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))))))))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (+ (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))))))))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (+ (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))))))))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (+ (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))))))))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (+ (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))))))))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (+ (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))))))))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (+ (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))))))))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (+ (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))))))))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 phi1))))))))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 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 (neg.f64 lambda1)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1))))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1))))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 phi1))))))))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 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 (neg.f64 lambda1)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1))))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1))))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 phi1))))))))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 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 (neg.f64 lambda1)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1))))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1))))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 phi1))))))))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 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 (neg.f64 lambda1)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1))))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1))))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (+ (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))))))))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (+ (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))))))))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (+ (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))))))))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (+ (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))))))))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (+ (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))))))))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (+ (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))))))))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (+ (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))))))))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (+ (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))))))))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 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 phi1 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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 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 phi1 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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 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 phi1 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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 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 phi1 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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (+ (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))))))))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (+ (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))))))))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (+ (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))))))))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (+ (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))))))))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (+ (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))))))))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (+ (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))))))))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (+ (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))))))))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (+ (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))))))))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (+ (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))))))))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (+ (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))))))))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (+ (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))))))))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (+ (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))))))))) 2))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.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)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 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 phi1 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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 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 phi1 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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 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 phi1 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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 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 phi1 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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 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 phi1 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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 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 phi1 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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 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 phi1 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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 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 phi1 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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 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 phi1 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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 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 phi1 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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 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 phi1 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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 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 phi1 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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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)) (+ (* -1/2 (* phi2 (cos (* 1/2 phi1)))) (+ (* -1/8 (* (pow phi2 2) (sin (* 1/2 phi1)))) (* 1/48 (* (pow phi2 3) (cos (* 1/2 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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (+.f64 (+.f64 (.f64 (.f64 phi2 #s(literal -1/2 binary64)) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 #s(literal -1/8 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 phi2)))) (.f64 #s(literal 1/48 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (.f64 phi2 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)) (+ (* -1/2 (* phi2 (cos (* 1/2 phi1)))) (+ (* -1/8 (* (pow phi2 2) (sin (* 1/2 phi1)))) (* 1/48 (* (pow phi2 3) (cos (* 1/2 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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (+.f64 (+.f64 (.f64 (.f64 phi2 #s(literal -1/2 binary64)) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 #s(literal -1/8 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 phi2)))) (.f64 #s(literal 1/48 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (.f64 phi2 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)) (+ (* -1/2 (* phi2 (cos (* 1/2 phi1)))) (+ (* -1/8 (* (pow phi2 2) (sin (* 1/2 phi1)))) (* 1/48 (* (pow phi2 3) (cos (* 1/2 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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (+.f64 (+.f64 (.f64 (.f64 phi2 #s(literal -1/2 binary64)) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 #s(literal -1/8 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 phi2)))) (.f64 #s(literal 1/48 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (.f64 phi2 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)) (+ (* -1/2 (* phi2 (cos (* 1/2 phi1)))) (+ (* -1/8 (* (pow phi2 2) (sin (* 1/2 phi1)))) (* 1/48 (* (pow phi2 3) (cos (* 1/2 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 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (+.f64 (+.f64 (.f64 (.f64 phi2 #s(literal -1/2 binary64)) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 #s(literal -1/8 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 phi2)))) (.f64 #s(literal 1/48 binary64) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (.f64 phi2 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)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 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 phi1 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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 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 phi1 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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 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 phi1 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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 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 phi1 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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 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 phi1 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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 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 phi1 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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 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 phi1 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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 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 phi1 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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 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 phi1 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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 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 phi1 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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 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 phi1 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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 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 phi1 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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 phi1))))))))) 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 (neg.f64 lambda1)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1))))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1))))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 phi1))))))))) 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 (neg.f64 lambda1)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1))))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1))))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 phi1))))))))) 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 (neg.f64 lambda1)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1))))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1))))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 phi1))))))))) 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 (neg.f64 lambda1)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1))))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1))))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 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 phi1 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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 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 phi1 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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 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 phi1 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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 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 phi1 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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 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 phi1 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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 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 phi1 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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 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 phi1 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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 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 phi1 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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 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 phi1 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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 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 phi1 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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 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 phi1 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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 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 phi1 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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64)))))
(sqrt (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (* (pow phi2 2) (pow (- (* 1/48 (pow phi2 2)) 1/2) 2))))
(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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (.f64 (.f64 phi2 phi2) (.f64 (+.f64 (.f64 #s(literal 1/48 binary64) (.f64 phi2 phi2)) #s(literal -1/2 binary64)) (+.f64 (.f64 #s(literal 1/48 binary64) (*.f64 phi2 phi2)) #s(literal -1/2 binary64)))))))
(+ (sqrt (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (* (pow phi2 2) (pow (- (* 1/48 (pow phi2 2)) 1/2) 2)))) (* -1 (* (* phi1 (* phi2 (* (+ 1/2 (* -1/16 (pow phi2 2))) (- (* 1/48 (pow phi2 2)) 1/2)))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (* (pow phi2 2) (pow (- (* 1/48 (pow phi2 2)) 1/2) 2))))))))
(+.f64 (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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (.f64 (.f64 phi2 phi2) (.f64 (+.f64 (.f64 #s(literal 1/48 binary64) (.f64 phi2 phi2)) #s(literal -1/2 binary64)) (+.f64 (.f64 #s(literal 1/48 binary64) (.f64 phi2 phi2)) #s(literal -1/2 binary64))))))) (.f64 (.f64 #s(literal -1 binary64) (.f64 (.f64 phi1 phi2) (.f64 (+.f64 (.f64 #s(literal 1/48 binary64) (.f64 phi2 phi2)) #s(literal -1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/16 binary64) (.f64 phi2 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (.f64 (.f64 phi2 phi2) (.f64 (+.f64 (.f64 #s(literal 1/48 binary64) (.f64 phi2 phi2)) #s(literal -1/2 binary64)) (+.f64 (.f64 #s(literal 1/48 binary64) (*.f64 phi2 phi2)) #s(literal -1/2 binary64))))))))))
(+ (sqrt (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (* (pow phi2 2) (pow (- (* 1/48 (pow phi2 2)) 1/2) 2)))) (* phi1 (+ (* -1 (* (* phi2 (* (+ 1/2 (* -1/16 (pow phi2 2))) (- (* 1/48 (pow phi2 2)) 1/2))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (* (pow phi2 2) (pow (- (* 1/48 (pow phi2 2)) 1/2) 2))))))) (* 1/2 (* (* phi1 (- (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* 2 (* (pow phi2 2) (* (+ 1/16 (* -1/384 (pow phi2 2))) (- (* 1/48 (pow phi2 2)) 1/2)))) (+ (/ (* (pow phi2 2) (* (pow (+ 1/2 (* -1/16 (pow phi2 2))) 2) (pow (- (* 1/48 (pow phi2 2)) 1/2) 2))) (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (* (pow phi2 2) (pow (- (* 1/48 (pow phi2 2)) 1/2) 2)))) (pow (+ 1/2 (* -1/16 (pow phi2 2))) 2))))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (* (pow phi2 2) (pow (- (* 1/48 (pow phi2 2)) 1/2) 2))))))))))
(+.f64 (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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (.f64 (.f64 phi2 phi2) (.f64 (+.f64 (.f64 #s(literal 1/48 binary64) (.f64 phi2 phi2)) #s(literal -1/2 binary64)) (+.f64 (.f64 #s(literal 1/48 binary64) (.f64 phi2 phi2)) #s(literal -1/2 binary64))))))) (.f64 phi1 (+.f64 (.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (.f64 (+.f64 (.f64 #s(literal 1/48 binary64) (.f64 phi2 phi2)) #s(literal -1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/16 binary64) (.f64 phi2 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (.f64 (.f64 phi2 phi2) (.f64 (+.f64 (.f64 #s(literal 1/48 binary64) (.f64 phi2 phi2)) #s(literal -1/2 binary64)) (+.f64 (.f64 #s(literal 1/48 binary64) (.f64 phi2 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 binary64) (-.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (.f64 (.f64 phi2 phi2) (.f64 (+.f64 (.f64 #s(literal 1/48 binary64) (.f64 phi2 phi2)) #s(literal -1/2 binary64)) (+.f64 (.f64 #s(literal 1/48 binary64) (.f64 phi2 phi2)) #s(literal -1/2 binary64)))))))) (-.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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (.f64 #s(literal 2 binary64) (.f64 (.f64 (.f64 phi2 phi2) (+.f64 #s(literal 1/16 binary64) (.f64 (.f64 phi2 phi2) #s(literal -1/384 binary64)))) (+.f64 (.f64 #s(literal 1/48 binary64) (.f64 phi2 phi2)) #s(literal -1/2 binary64))))) (+.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/16 binary64) (.f64 phi2 phi2))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/16 binary64) (.f64 phi2 phi2)))) (/.f64 (.f64 (.f64 phi2 phi2) (.f64 (.f64 (+.f64 (.f64 #s(literal 1/48 binary64) (.f64 phi2 phi2)) #s(literal -1/2 binary64)) (+.f64 (.f64 #s(literal 1/48 binary64) (.f64 phi2 phi2)) #s(literal -1/2 binary64))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/16 binary64) (.f64 phi2 phi2))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/16 binary64) (.f64 phi2 phi2)))))) (+.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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (.f64 (.f64 phi2 phi2) (.f64 (+.f64 (.f64 #s(literal 1/48 binary64) (.f64 phi2 phi2)) #s(literal -1/2 binary64)) (+.f64 (.f64 #s(literal 1/48 binary64) (*.f64 phi2 phi2)) #s(literal -1/2 binary64)))))))))))))))
(+ (sqrt (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (* (pow phi2 2) (pow (- (* 1/48 (pow phi2 2)) 1/2) 2)))) (* phi1 (+ (* -1 (* (* phi2 (* (+ 1/2 (* -1/16 (pow phi2 2))) (- (* 1/48 (pow phi2 2)) 1/2))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (* (pow phi2 2) (pow (- (* 1/48 (pow phi2 2)) 1/2) 2))))))) (* phi1 (+ (* -1/2 (* (* phi1 (+ (* -1 (/ (* phi2 (* (+ 1/2 (* -1/16 (pow phi2 2))) (* (- (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* 2 (* (pow phi2 2) (* (+ 1/16 (* -1/384 (pow phi2 2))) (- (* 1/48 (pow phi2 2)) 1/2)))) (+ (/ (* (pow phi2 2) (* (pow (+ 1/2 (* -1/16 (pow phi2 2))) 2) (pow (- (* 1/48 (pow phi2 2)) 1/2) 2))) (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (* (pow phi2 2) (pow (- (* 1/48 (pow phi2 2)) 1/2) 2)))) (pow (+ 1/2 (* -1/16 (pow phi2 2))) 2)))) (- (* 1/48 (pow phi2 2)) 1/2)))) (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (* (pow phi2 2) (pow (- (* 1/48 (pow phi2 2)) 1/2) 2))))) (+ (* 2 (* phi2 (* (+ 1/16 (* -1/384 (pow phi2 2))) (+ 1/2 (* -1/16 (pow phi2 2)))))) (* 2 (* phi2 (* (- (* 1/384 (pow phi2 2)) 1/48) (- (* 1/48 (pow phi2 2)) 1/2))))))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (* (pow phi2 2) (pow (- (* 1/48 (pow phi2 2)) 1/2) 2))))))) (* 1/2 (* (- (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* 2 (* (pow phi2 2) (* (+ 1/16 (* -1/384 (pow phi2 2))) (- (* 1/48 (pow phi2 2)) 1/2)))) (+ (/ (* (pow phi2 2) (* (pow (+ 1/2 (* -1/16 (pow phi2 2))) 2) (pow (- (* 1/48 (pow phi2 2)) 1/2) 2))) (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (* (pow phi2 2) (pow (- (* 1/48 (pow phi2 2)) 1/2) 2)))) (pow (+ 1/2 (* -1/16 (pow phi2 2))) 2)))) (sqrt (/ 1 (- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (* (pow phi2 2) (pow (- (* 1/48 (pow phi2 2)) 1/2) 2))))))))))))
(+.f64 (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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (.f64 (.f64 phi2 phi2) (.f64 (+.f64 (.f64 #s(literal 1/48 binary64) (.f64 phi2 phi2)) #s(literal -1/2 binary64)) (+.f64 (.f64 #s(literal 1/48 binary64) (.f64 phi2 phi2)) #s(literal -1/2 binary64))))))) (.f64 phi1 (+.f64 (.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (.f64 (+.f64 (.f64 #s(literal 1/48 binary64) (.f64 phi2 phi2)) #s(literal -1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/16 binary64) (.f64 phi2 phi2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (.f64 (.f64 phi2 phi2) (.f64 (+.f64 (.f64 #s(literal 1/48 binary64) (.f64 phi2 phi2)) #s(literal -1/2 binary64)) (+.f64 (.f64 #s(literal 1/48 binary64) (.f64 phi2 phi2)) #s(literal -1/2 binary64))))))))) (.f64 phi1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (+.f64 (neg.f64 (/.f64 (.f64 (.f64 phi2 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/16 binary64) (.f64 phi2 phi2)))) (.f64 (+.f64 (.f64 #s(literal 1/48 binary64) (.f64 phi2 phi2)) #s(literal -1/2 binary64)) (-.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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (.f64 #s(literal 2 binary64) (.f64 (.f64 (.f64 phi2 phi2) (+.f64 #s(literal 1/16 binary64) (.f64 (.f64 phi2 phi2) #s(literal -1/384 binary64)))) (+.f64 (.f64 #s(literal 1/48 binary64) (.f64 phi2 phi2)) #s(literal -1/2 binary64))))) (+.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/16 binary64) (.f64 phi2 phi2))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/16 binary64) (.f64 phi2 phi2)))) (/.f64 (.f64 (.f64 phi2 phi2) (.f64 (.f64 (+.f64 (.f64 #s(literal 1/48 binary64) (.f64 phi2 phi2)) #s(literal -1/2 binary64)) (+.f64 (.f64 #s(literal 1/48 binary64) (.f64 phi2 phi2)) #s(literal -1/2 binary64))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/16 binary64) (.f64 phi2 phi2))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/16 binary64) (.f64 phi2 phi2)))))) (+.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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (.f64 (.f64 phi2 phi2) (.f64 (+.f64 (.f64 #s(literal 1/48 binary64) (.f64 phi2 phi2)) #s(literal -1/2 binary64)) (+.f64 (.f64 #s(literal 1/48 binary64) (.f64 phi2 phi2)) #s(literal -1/2 binary64))))))))))) (+.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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (.f64 (.f64 phi2 phi2) (.f64 (+.f64 (.f64 #s(literal 1/48 binary64) (.f64 phi2 phi2)) #s(literal -1/2 binary64)) (+.f64 (.f64 #s(literal 1/48 binary64) (.f64 phi2 phi2)) #s(literal -1/2 binary64)))))))) (.f64 #s(literal 2 binary64) (+.f64 (.f64 phi2 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/16 binary64) (.f64 phi2 phi2))) (+.f64 #s(literal 1/16 binary64) (.f64 (.f64 phi2 phi2) #s(literal -1/384 binary64))))) (.f64 (.f64 phi2 (+.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/384 binary64)) #s(literal -1/48 binary64))) (+.f64 (.f64 #s(literal 1/48 binary64) (.f64 phi2 phi2)) #s(literal -1/2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (.f64 (.f64 phi2 phi2) (.f64 (+.f64 (.f64 #s(literal 1/48 binary64) (.f64 phi2 phi2)) #s(literal -1/2 binary64)) (+.f64 (.f64 #s(literal 1/48 binary64) (.f64 phi2 phi2)) #s(literal -1/2 binary64))))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (.f64 (.f64 phi2 phi2) (.f64 (+.f64 (.f64 #s(literal 1/48 binary64) (.f64 phi2 phi2)) #s(literal -1/2 binary64)) (+.f64 (.f64 #s(literal 1/48 binary64) (.f64 phi2 phi2)) #s(literal -1/2 binary64)))))))) (-.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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (.f64 #s(literal 2 binary64) (.f64 (.f64 (.f64 phi2 phi2) (+.f64 #s(literal 1/16 binary64) (.f64 (.f64 phi2 phi2) #s(literal -1/384 binary64)))) (+.f64 (.f64 #s(literal 1/48 binary64) (.f64 phi2 phi2)) #s(literal -1/2 binary64))))) (+.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/16 binary64) (.f64 phi2 phi2))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/16 binary64) (.f64 phi2 phi2)))) (/.f64 (.f64 (.f64 phi2 phi2) (.f64 (.f64 (+.f64 (.f64 #s(literal 1/48 binary64) (.f64 phi2 phi2)) #s(literal -1/2 binary64)) (+.f64 (.f64 #s(literal 1/48 binary64) (.f64 phi2 phi2)) #s(literal -1/2 binary64))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/16 binary64) (.f64 phi2 phi2))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/16 binary64) (.f64 phi2 phi2)))))) (+.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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (.f64 (.f64 phi2 phi2) (.f64 (+.f64 (.f64 #s(literal 1/48 binary64) (.f64 phi2 phi2)) #s(literal -1/2 binary64)) (+.f64 (.f64 #s(literal 1/48 binary64) (.f64 phi2 phi2)) #s(literal -1/2 binary64))))))))))))))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (+ (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))))))))) 2)))
(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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (+ (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))))))))) 2)))
(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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (+ (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))))))))) 2)))
(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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (+ (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))))))))) 2)))
(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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (+ (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))))))))) 2)))
(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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (+ (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))))))))) 2)))
(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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (+ (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))))))))) 2)))
(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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (+ (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))))))))) 2)))
(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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(+ (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 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (.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 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))))))
(+ (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 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 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 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (-.f64 (-.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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (+.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 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (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 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))))
(+ (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 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 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 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))))) (.f64 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 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (.f64 #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 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))))) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (-.f64 (-.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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (+.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 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))))))))))
(* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304)))
(.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))
(* (pow phi2 3) (+ (* 1/384 (/ (sin (* 1/2 phi1)) (* phi2 (sqrt -1/2304)))) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(.f64 (.f64 phi2 (.f64 phi2 phi2)) (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))) (.f64 #s(literal 1/384 binary64) (/.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (sqrt.f64 #s(literal -1/2304 binary64)))))))
(* (pow phi2 3) (+ (* -1/2 (/ (+ (* -1/48 (pow (cos (* 1/2 phi1)) 2)) (+ (* 1/147456 (/ (pow (sin (* 1/2 phi1)) 2) (pow (sqrt -1/2304) 2))) (* 1/64 (pow (sin (* 1/2 phi1)) 2)))) (* (pow phi2 2) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))) (+ (* 1/384 (/ (sin (* 1/2 phi1)) (* phi2 (sqrt -1/2304)))) (* (cos (* 1/2 phi1)) (sqrt -1/2304)))))
(.f64 (.f64 phi2 (.f64 phi2 phi2)) (+.f64 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))) (.f64 #s(literal 1/384 binary64) (/.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (sqrt.f64 #s(literal -1/2304 binary64)))))) (/.f64 (.f64 #s(literal -1/2 binary64) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/48 binary64)) (+.f64 (/.f64 (.f64 #s(literal 1/147456 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 #s(literal -1/2304 binary64)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/64 binary64))))) (.f64 (.f64 phi2 phi2) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))))
(* (pow phi2 3) (+ (* -1/2 (/ (+ (* -1/48 (pow (cos (* 1/2 phi1)) 2)) (+ (* 1/147456 (/ (pow (sin (* 1/2 phi1)) 2) (pow (sqrt -1/2304) 2))) (* 1/64 (pow (sin (* 1/2 phi1)) 2)))) (* (pow phi2 2) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))) (+ (* -1/2 (/ (+ (* -1/384 (/ (* (sin (* 1/2 phi1)) (+ (* -1/48 (pow (cos (* 1/2 phi1)) 2)) (+ (* 1/147456 (/ (pow (sin (* 1/2 phi1)) 2) (pow (sqrt -1/2304) 2))) (* 1/64 (pow (sin (* 1/2 phi1)) 2))))) (* (cos (* 1/2 phi1)) (pow (sqrt -1/2304) 2)))) (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))) (+ (* 1/384 (/ (sin (* 1/2 phi1)) (* phi2 (sqrt -1/2304)))) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.f64 (.f64 phi2 (.f64 phi2 phi2)) (+.f64 (/.f64 (.f64 #s(literal -1/2 binary64) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/48 binary64)) (+.f64 (/.f64 (.f64 #s(literal 1/147456 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 #s(literal -1/2304 binary64)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/64 binary64))))) (.f64 (.f64 phi2 phi2) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))) (+.f64 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))) (.f64 #s(literal 1/384 binary64) (/.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (sqrt.f64 #s(literal -1/2304 binary64)))))) (/.f64 (.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)))) #s(literal 1/6 binary64)) (.f64 #s(literal -1/384 binary64) (/.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/48 binary64)) (+.f64 (/.f64 (.f64 #s(literal 1/147456 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 #s(literal -1/2304 binary64)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/64 binary64))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (sqrt.f64 #s(literal -1/2304 binary64)) #s(literal 2 binary64))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))))
(* -1 (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (.f64 phi2 phi2))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))
(* -1 (* (pow phi2 3) (+ (* 1/384 (/ (sin (* 1/2 phi1)) (* phi2 (sqrt -1/2304)))) (* (cos (* 1/2 phi1)) (sqrt -1/2304)))))
(.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (.f64 phi2 phi2))) (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))) (.f64 #s(literal 1/384 binary64) (/.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (*.f64 phi2 (sqrt.f64 #s(literal -1/2304 binary64)))))))
(* -1 (* (pow phi2 3) (+ (* -1 (/ (+ (* -1/384 (/ (sin (* 1/2 phi1)) (sqrt -1/2304))) (* 1/2 (/ (+ (* -1/48 (pow (cos (* 1/2 phi1)) 2)) (+ (* 1/147456 (/ (pow (sin (* 1/2 phi1)) 2) (pow (sqrt -1/2304) 2))) (* 1/64 (pow (sin (* 1/2 phi1)) 2)))) (* phi2 (* (cos (* 1/2 phi1)) (sqrt -1/2304)))))) phi2)) (* (cos (* 1/2 phi1)) (sqrt -1/2304)))))
(.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (.f64 phi2 phi2))) (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))) (neg.f64 (/.f64 (+.f64 (.f64 #s(literal -1/384 binary64) (/.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))) (/.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/48 binary64)) (+.f64 (/.f64 (.f64 #s(literal 1/147456 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 #s(literal -1/2304 binary64)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/64 binary64))))) (.f64 phi2 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))) phi2))))
(* -1 (* (pow phi2 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/2 (/ (+ (* -1/48 (pow (cos (* 1/2 phi1)) 2)) (+ (* 1/147456 (/ (pow (sin (* 1/2 phi1)) 2) (pow (sqrt -1/2304) 2))) (* 1/64 (pow (sin (* 1/2 phi1)) 2)))) (* (cos (* 1/2 phi1)) (sqrt -1/2304)))) (* 1/2 (/ (+ (* -1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (+ (* -1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/384 (/ (* (sin (* 1/2 phi1)) (+ (* -1/48 (pow (cos (* 1/2 phi1)) 2)) (+ (* 1/147456 (/ (pow (sin (* 1/2 phi1)) 2) (pow (sqrt -1/2304) 2))) (* 1/64 (pow (sin (* 1/2 phi1)) 2))))) (* (cos (* 1/2 phi1)) (pow (sqrt -1/2304) 2)))))) (* phi2 (* (cos (* 1/2 phi1)) (sqrt -1/2304)))))) phi2)) (* -1/384 (/ (sin (* 1/2 phi1)) (sqrt -1/2304)))) phi2)) (* (cos (* 1/2 phi1)) (sqrt -1/2304)))))
(.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (.f64 phi2 phi2))) (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))) (/.f64 (.f64 #s(literal -1 binary64) (+.f64 (.f64 #s(literal -1/384 binary64) (/.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))) (neg.f64 (/.f64 (+.f64 (/.f64 (.f64 #s(literal -1/2 binary64) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/48 binary64)) (+.f64 (/.f64 (.f64 #s(literal 1/147456 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 #s(literal -1/2304 binary64)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/64 binary64))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))) (/.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1/8 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/24 binary64) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (/.f64 (.f64 #s(literal 1/384 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/48 binary64)) (+.f64 (/.f64 (.f64 #s(literal 1/147456 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 #s(literal -1/2304 binary64)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/64 binary64)))))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (pow.f64 (sqrt.f64 #s(literal -1/2304 binary64)) #s(literal 2 binary64))))))) (.f64 phi2 (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))) phi2)))) phi2)))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (+ (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))))))))) 2)))
(sqrt.f64 (-.f64 (+.f64 #s(literal 1 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))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64))))
(+ (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (+ (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))))))))) 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 (+ (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))))))))) 2)))))))
(+.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64)))) (.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.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 (.f64 #s(literal 1/2 binary64) (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 (+.f64 #s(literal 1 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))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64)))))))
(+ (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (+ (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))))))))) 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 (+ (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))))))))) 2)))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (+ (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))))))))) 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 (+ (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))))))))) 2)))))))))
(+.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64)))) (.f64 lambda1 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 lambda1 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 #s(literal 1 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))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64))))) (-.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 (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (+.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)))) #s(literal 2 binary64))))) (-.f64 (+.f64 #s(literal 1 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))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64))))))) (.f64 (.f64 (cos.f64 phi1) (.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 (.f64 #s(literal 1/2 binary64) (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 (+.f64 #s(literal 1 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))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64))))))))))
(+ (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (+ (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))))))))) 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 (+ (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))))))))) 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 (+ (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))))))))) 2)))))))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (+ (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))))))))) 2)))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (+ (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))))))))) 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 (+ (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))))))))) 2))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (+ (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))))))))) 2)))))))))))
(+.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64)))) (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.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 (.f64 #s(literal 1/2 binary64) (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 (+.f64 #s(literal 1 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))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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 #s(literal -1/16 binary64) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) (.f64 #s(literal -1/48 binary64) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) #s(literal 1/12 binary64)))) (.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 (.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 (.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 (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (+.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)))) #s(literal 2 binary64))))) (-.f64 (+.f64 #s(literal 1 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))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64))))))) (-.f64 (+.f64 #s(literal 1 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))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 #s(literal 1 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))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 #s(literal 1 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))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64))))) (-.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 (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (+.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)))) #s(literal 2 binary64))))) (-.f64 (+.f64 #s(literal 1 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))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64))))))))))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (+ (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))))))))) 2)))
(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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (+ (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))))))))) 2)))
(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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (+ (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))))))))) 2)))
(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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (+ (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))))))))) 2)))
(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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (+ (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))))))))) 2)))
(sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1))))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1))))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (+ (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))))))))) 2)))
(sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1))))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1))))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (+ (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))))))))) 2)))
(sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1))))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1))))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (+ lambda2 (* -1 lambda1)))))))) (pow (+ (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))))))))) 2)))
(sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1))))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1))))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (+ (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))))))))) 2)))
(sqrt.f64 (-.f64 (+.f64 #s(literal 1 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))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64))))
(+ (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (+ (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))))))))) 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 (+ (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))))))))) 2)))))))
(+.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64)))) (.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (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 (+.f64 #s(literal 1 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))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64)))))))
(+ (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (+ (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))))))))) 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 (+ (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))))))))) 2)))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (+ (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))))))))) 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 (+ (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))))))))) 2)))))))))
(+.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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 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))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 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 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal -1/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))) (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 (+.f64 #s(literal 1 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))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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 (.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 (+.f64 #s(literal 1 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))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64))))))))))
(+ (sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (+ (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))))))))) 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 (+ (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))))))))) 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 (+ (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))))))))) 2)))))))) (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (+ (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))))))))) 2)))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (+ (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))))))))) 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 (+ (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))))))))) 2))))) (sqrt (/ 1 (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (+ (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))))))))) 2)))))))))))
(+.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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 (.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 (+.f64 #s(literal 1 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))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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 (.f64 (.f64 #s(literal -1/16 binary64) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.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 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (+.f64 (.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 (+.f64 #s(literal 1 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))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64))))))) (-.f64 (+.f64 #s(literal 1 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))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 #s(literal 1 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))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64))))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 #s(literal 1 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))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal -1/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))) (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 (+.f64 #s(literal 1 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))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64))))))))))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (+ (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))))))))) 2)))
(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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (+ (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))))))))) 2)))
(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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (+ (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))))))))) 2)))
(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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (+ (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))))))))) 2)))
(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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (+ (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))))))))) 2)))
(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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (+ (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))))))))) 2)))
(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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (+ (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))))))))) 2)))
(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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64))))
(sqrt (- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda1 (* -1 lambda2)))) (sin (* 1/2 (+ lambda1 (* -1 lambda2)))))))) (pow (+ (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))))))))) 2)))
(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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64))))
(- (+ 1 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (* (pow phi2 2) (pow (- (* 1/48 (pow phi2 2)) 1/2) 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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (.f64 (.f64 phi2 phi2) (.f64 (+.f64 (.f64 #s(literal 1/48 binary64) (.f64 phi2 phi2)) #s(literal -1/2 binary64)) (+.f64 (.f64 #s(literal 1/48 binary64) (*.f64 phi2 phi2)) #s(literal -1/2 binary64))))))
(- (+ 1 (+ (* -2 (* phi1 (* phi2 (* (+ 1/2 (* -1/16 (pow phi2 2))) (- (* 1/48 (pow phi2 2)) 1/2))))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (* (pow phi2 2) (pow (- (* 1/48 (pow phi2 2)) 1/2) 2)))
(-.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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (.f64 (.f64 (.f64 phi1 phi2) (.f64 (+.f64 (.f64 #s(literal 1/48 binary64) (.f64 phi2 phi2)) #s(literal -1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/16 binary64) (.f64 phi2 phi2))))) #s(literal -2 binary64)))) (.f64 (.f64 phi2 phi2) (.f64 (+.f64 (.f64 #s(literal 1/48 binary64) (.f64 phi2 phi2)) #s(literal -1/2 binary64)) (+.f64 (.f64 #s(literal 1/48 binary64) (*.f64 phi2 phi2)) #s(literal -1/2 binary64)))))
(- (+ 1 (+ (* phi1 (- (* phi1 (- (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* 2 (* (pow phi2 2) (* (+ 1/16 (* -1/384 (pow phi2 2))) (- (* 1/48 (pow phi2 2)) 1/2)))) (pow (+ 1/2 (* -1/16 (pow phi2 2))) 2)))) (* 2 (* phi2 (* (+ 1/2 (* -1/16 (pow phi2 2))) (- (* 1/48 (pow phi2 2)) 1/2)))))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (* (pow phi2 2) (pow (- (* 1/48 (pow phi2 2)) 1/2) 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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (.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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (.f64 (.f64 phi2 phi2) (+.f64 #s(literal 1/16 binary64) (.f64 (.f64 phi2 phi2) #s(literal -1/384 binary64)))) (+.f64 (.f64 #s(literal 1/48 binary64) (.f64 phi2 phi2)) #s(literal -1/2 binary64)))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/16 binary64) (.f64 phi2 phi2))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/16 binary64) (.f64 phi2 phi2))))))) (.f64 #s(literal -2 binary64) (.f64 phi2 (.f64 (+.f64 (.f64 #s(literal 1/48 binary64) (.f64 phi2 phi2)) #s(literal -1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/16 binary64) (.f64 phi2 phi2))))))))) (.f64 (.f64 phi2 phi2) (.f64 (+.f64 (.f64 #s(literal 1/48 binary64) (.f64 phi2 phi2)) #s(literal -1/2 binary64)) (+.f64 (.f64 #s(literal 1/48 binary64) (.f64 phi2 phi2)) #s(literal -1/2 binary64))))))
(- (+ 1 (+ (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* 2 (* phi2 (* (+ 1/16 (* -1/384 (pow phi2 2))) (+ 1/2 (* -1/16 (pow phi2 2)))))) (* 2 (* phi2 (* (- (* 1/384 (pow phi2 2)) 1/48) (- (* 1/48 (pow phi2 2)) 1/2))))))) (* -1/2 (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (+ (* 2 (* (pow phi2 2) (* (+ 1/16 (* -1/384 (pow phi2 2))) (- (* 1/48 (pow phi2 2)) 1/2)))) (pow (+ 1/2 (* -1/16 (pow phi2 2))) 2)))) (* 2 (* phi2 (* (+ 1/2 (* -1/16 (pow phi2 2))) (- (* 1/48 (pow phi2 2)) 1/2)))))) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (* (pow phi2 2) (pow (- (* 1/48 (pow phi2 2)) 1/2) 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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (.f64 phi1 (+.f64 (.f64 phi1 (+.f64 (.f64 (neg.f64 phi1) (.f64 #s(literal 2 binary64) (+.f64 (.f64 phi2 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/16 binary64) (.f64 phi2 phi2))) (+.f64 #s(literal 1/16 binary64) (.f64 (.f64 phi2 phi2) #s(literal -1/384 binary64))))) (.f64 (.f64 phi2 (+.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/384 binary64)) #s(literal -1/48 binary64))) (+.f64 (.f64 #s(literal 1/48 binary64) (.f64 phi2 phi2)) #s(literal -1/2 binary64)))))) (-.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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (.f64 (.f64 phi2 phi2) (+.f64 #s(literal 1/16 binary64) (.f64 (.f64 phi2 phi2) #s(literal -1/384 binary64)))) (+.f64 (.f64 #s(literal 1/48 binary64) (.f64 phi2 phi2)) #s(literal -1/2 binary64)))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/16 binary64) (.f64 phi2 phi2))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/16 binary64) (.f64 phi2 phi2)))))))) (.f64 #s(literal -2 binary64) (.f64 phi2 (.f64 (+.f64 (.f64 #s(literal 1/48 binary64) (.f64 phi2 phi2)) #s(literal -1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/16 binary64) (.f64 phi2 phi2))))))))) (.f64 (.f64 phi2 phi2) (.f64 (+.f64 (.f64 #s(literal 1/48 binary64) (.f64 phi2 phi2)) #s(literal -1/2 binary64)) (+.f64 (.f64 #s(literal 1/48 binary64) (.f64 phi2 phi2)) #s(literal -1/2 binary64))))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (+ (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))))))))) 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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 phi1))))))))) 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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 phi1))))))))) 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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 phi1))))))))) 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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 phi1))))))))) 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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 phi1))))))))) 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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 phi1))))))))) 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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 phi1))))))))) 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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64)))
(- (+ 1 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (+ (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi1)) 2))
(-.f64 (+.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 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(- (+ 1 (+ (* phi2 (- (* phi2 (- (* -1/2 (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2)))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))) (* (cos phi1) (* (sin (* -1/2 (- lambda1 lambda2))) (sin (* 1/2 (- lambda1 lambda2))))))) (pow (sin (* 1/2 phi1)) 2))
(-.f64 (+.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (.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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 #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 (.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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64))))) (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (.f64 #s(literal 1 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))))))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(* -1/2304 (* (pow phi2 6) (pow (cos (* 1/2 phi1)) 2)))
(.f64 (.f64 #s(literal -1/2304 binary64) (pow.f64 phi2 #s(literal 6 binary64))) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(* (pow phi2 6) (- (* 1/192 (/ (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) phi2)) (* 1/2304 (pow (cos (* 1/2 phi1)) 2))))
(.f64 (pow.f64 phi2 #s(literal 6 binary64)) (+.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/192 binary64)) phi2) (.f64 #s(literal -1/2304 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(* (pow phi2 6) (- (* -1 (/ (+ (* -1/48 (pow (cos (* 1/2 phi1)) 2)) (* 1/64 (pow (sin (* 1/2 phi1)) 2))) (pow phi2 2))) (+ (* -1/192 (/ (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) phi2)) (* 1/2304 (pow (cos (* 1/2 phi1)) 2)))))
(.f64 (pow.f64 phi2 #s(literal 6 binary64)) (-.f64 (neg.f64 (/.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/48 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/64 binary64))) (.f64 phi2 phi2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2304 binary64)) (/.f64 (.f64 #s(literal -1/192 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))) phi2))))
(* (pow phi2 6) (- (* -1 (/ (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow phi2 3))) (+ (* -1/48 (/ (pow (cos (* 1/2 phi1)) 2) (pow phi2 2))) (+ (* -1/192 (/ (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) phi2)) (+ (* 1/2304 (pow (cos (* 1/2 phi1)) 2)) (* 1/64 (/ (pow (sin (* 1/2 phi1)) 2) (pow phi2 2))))))))
(.f64 (pow.f64 phi2 #s(literal 6 binary64)) (-.f64 (neg.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 phi2 (.f64 phi2 phi2)))) (+.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/48 binary64)) (.f64 phi2 phi2)) (+.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/2304 binary64)) (/.f64 (.f64 #s(literal -1/192 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))) phi2)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/64 binary64)) (*.f64 phi2 phi2))))))
(* -1/2304 (* (pow phi2 6) (pow (cos (* 1/2 phi1)) 2)))
(.f64 (.f64 #s(literal -1/2304 binary64) (pow.f64 phi2 #s(literal 6 binary64))) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(* (pow phi2 6) (- (* 1/192 (/ (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) phi2)) (* 1/2304 (pow (cos (* 1/2 phi1)) 2))))
(.f64 (pow.f64 phi2 #s(literal 6 binary64)) (+.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/192 binary64)) phi2) (.f64 #s(literal -1/2304 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(* (pow phi2 6) (- (* -1 (/ (- (+ (* -1/48 (/ (pow (cos (* 1/2 phi1)) 2) phi2)) (* 1/64 (/ (pow (sin (* 1/2 phi1)) 2) phi2))) (* 1/192 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) phi2)) (* 1/2304 (pow (cos (* 1/2 phi1)) 2))))
(.f64 (pow.f64 phi2 #s(literal 6 binary64)) (+.f64 (neg.f64 (/.f64 (+.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/48 binary64)) phi2) (-.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/64 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/192 binary64)))) phi2)) (.f64 #s(literal -1/2304 binary64) (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(* (pow phi2 6) (- (* -1 (/ (- (* -1 (/ (- (+ (* -1/8 (/ (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) phi2)) (* -1/24 (/ (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) phi2))) (+ (* -1/48 (pow (cos (* 1/2 phi1)) 2)) (* 1/64 (pow (sin (* 1/2 phi1)) 2)))) phi2)) (* 1/192 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) phi2)) (* 1/2304 (pow (cos (* 1/2 phi1)) 2))))
(.f64 (pow.f64 phi2 #s(literal 6 binary64)) (+.f64 (neg.f64 (/.f64 (+.f64 (/.f64 (.f64 #s(literal -1 binary64) (-.f64 (.f64 (/.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) phi2) #s(literal -1/6 binary64)) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/48 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/64 binary64))))) phi2) (.f64 #s(literal -1/192 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))))) phi2)) (.f64 #s(literal -1/2304 binary64) (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (+ (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))))))))) 2))
(-.f64 (+.f64 #s(literal 1 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))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 phi1))))))))) 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 (cos.f64 phi1) (.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 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (pow.f64 (+.f64 (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))))))))) #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 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 phi1))))))))) 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) (.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 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (.f64 lambda1 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 #s(literal -1/4 binary64) (+.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))))))) (pow.f64 (+.f64 (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))))))))) #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 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 phi1))))))))) 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) (.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 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (.f64 lambda1 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 #s(literal -1/4 binary64) (+.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (.f64 lambda1 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) (.f64 #s(literal -1/48 binary64) (.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) #s(literal 1/12 binary64)))))))))) (pow.f64 (+.f64 (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))))))))) #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 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 phi1))))))))) 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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 phi1))))))))) 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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 phi1))))))))) 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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 phi1))))))))) 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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 phi1))))))))) 2))
(-.f64 (+.f64 #s(literal 1 binary64) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1))))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1))))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 phi1))))))))) 2))
(-.f64 (+.f64 #s(literal 1 binary64) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1))))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1))))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 phi1))))))))) 2))
(-.f64 (+.f64 #s(literal 1 binary64) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1))))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1))))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 phi1))))))))) 2))
(-.f64 (+.f64 #s(literal 1 binary64) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1))))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1))))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64)))
(- (+ 1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda1)) (sin (* 1/2 lambda1)))))) (pow (+ (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))))))))) 2))
(-.f64 (+.f64 #s(literal 1 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))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 phi1))))))))) 2))
(-.f64 (+.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (.f64 lambda2 (.f64 (.f64 (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 (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))))))))) #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 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 phi1))))))))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (.f64 lambda2 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 lambda2 (.f64 (.f64 (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 (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))))))))) #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 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 phi1))))))))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (.f64 lambda2 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.f64 lambda2 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 #s(literal -1/4 binary64) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal -1/2 binary64))))))) (.f64 lambda2 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (+.f64 (.f64 (.f64 #s(literal -1/16 binary64) (cos.f64 (.f64 lambda1 #s(literal -1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.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 (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))))))))) #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 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 phi1))))))))) 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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 phi1))))))))) 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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 phi1))))))))) 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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 phi1))))))))) 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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 phi1))))))))) 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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 phi1))))))))) 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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 phi1))))))))) 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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #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 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 phi1))))))))) 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 (-.f64 lambda1 lambda2) #s(literal -1/2 binary64)))))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 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))))))))) #s(literal 2 binary64)))
(sin (* -1/2 lambda2))
(sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))
(+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))
(+.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (.f64 #s(literal 1/2 binary64) lambda1) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* -1/8 (* lambda1 (sin (* -1/2 lambda2)))) (* 1/2 (cos (* -1/2 lambda2))))))
(+.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal -1/8 binary64) lambda1) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))
(+.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 lambda1 (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 lambda1 (+.f64 (.f64 #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 (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 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (.f64 #s(literal -1/8 binary64) lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* 1/2 lambda1))) (* 1/48 (* lambda2 (cos (* 1/2 lambda1)))))))))
(+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (.f64 #s(literal 1/48 binary64) lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(- 1 (+ (* (cos phi2) (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 (* 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 phi1 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.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)))))) (* -1 (* (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 phi1 (.f64 #s(literal -1 binary64) (-.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 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)))))))) (+.f64 (.f64 (cos.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/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (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 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(+.f64 #s(literal 1 binary64) (-.f64 (.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) (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 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))))) (.f64 #s(literal 1 binary64) (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.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 (+ (* (cos phi1) (* (cos phi2) (pow (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 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (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 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (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 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (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 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (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 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (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 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (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 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (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 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (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 #s(literal 1 binary64) (-.f64 (.f64 phi2 (.f64 #s(literal -1 binary64) (-.f64 (.f64 phi2 (+.f64 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))))) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(- (+ 1 (* phi2 (- (* phi2 (- (* -1 (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+.f64 #s(literal 1 binary64) (-.f64 (.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 (.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 #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) (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 (- (* (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (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 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (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 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (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 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (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 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (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 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (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 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (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 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (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 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (* -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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(-.f64 (+.f64 #s(literal 1 binary64) (.f64 (neg.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))))))) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))
(- (+ 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (-.f64 (.f64 (neg.f64 lambda1) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) (.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 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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)))))
(- (+ 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 (neg.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)))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))) (.f64 (.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 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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))))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (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 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (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 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (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 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (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 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1)))) #s(literal 2 binary64)))))
(- 1 (+ (* (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 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1)))) #s(literal 2 binary64)))))
(- 1 (+ (* (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 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1)))) #s(literal 2 binary64)))))
(- 1 (+ (* (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 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (neg.f64 lambda1)))) #s(literal 2 binary64)))))
(- 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 (-.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (* (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 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (.f64 (.f64 (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (- (* -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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 lambda2 (.f64 #s(literal -1 binary64) (-.f64 (.f64 lambda2 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))
(- (+ 1 (* lambda2 (- (* 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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 lambda2 (+.f64 (.f64 lambda2 (-.f64 (.f64 (-.f64 #s(literal 0 binary64) 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 (.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 binary64) (.f64 (.f64 (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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (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 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (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 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (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 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (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 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (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 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (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 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (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 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (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 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(sin (* -1/2 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)))
(- 1/2 (* 1/2 (cos (neg phi2))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2)))
(- (+ 1/2 (* 1/2 (* phi1 (sin (neg phi2))))) (* 1/2 (cos (neg phi2))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (.f64 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 #s(literal -1/2 binary64) (cos.f64 phi1)))
(- (+ 1/2 (* -1/2 (* phi2 (sin phi1)))) (* 1/2 (cos phi1)))
(+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi2 (sin.f64 phi1))) (*.f64 (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))))
(- (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 #s(literal -1 binary64) (+.f64 lambda2 (neg.f64 lambda1)))) #s(literal -1 binary64))
(- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)
(+.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (+.f64 lambda2 (neg.f64 lambda1)))) #s(literal -1 binary64))
(- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)
(+.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (+.f64 lambda2 (neg.f64 lambda1)))) #s(literal -1 binary64))
(- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)
(+.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (+.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 #s(literal 1 binary64) (-.f64 (.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 #s(literal -1 binary64) (+.f64 lambda2 (neg.f64 lambda1)))))
(- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))
(-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal -1 binary64) (+.f64 lambda2 (neg.f64 lambda1)))))
(- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))
(-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal -1 binary64) (+.f64 lambda2 (neg.f64 lambda1)))))
(- 1 (cos (* -1 (+ lambda2 (* -1 lambda1)))))
(-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal -1 binary64) (+.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 (neg.f64 (*.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 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 (.f64 #s(literal -1 binary64) (sin.f64 lambda1)) (.f64 lambda2 (+.f64 (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (sin.f64 lambda1))) (.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 (* -1 (+ lambda2 (* -1 lambda1))))
(cos.f64 (*.f64 #s(literal -1 binary64) (+.f64 lambda2 (neg.f64 lambda1))))
(cos (* -1 (+ lambda2 (* -1 lambda1))))
(cos.f64 (*.f64 #s(literal -1 binary64) (+.f64 lambda2 (neg.f64 lambda1))))
(cos (* -1 (+ lambda2 (* -1 lambda1))))
(cos.f64 (*.f64 #s(literal -1 binary64) (+.f64 lambda2 (neg.f64 lambda1))))
(cos (* -1 (+ lambda2 (* -1 lambda1))))
(cos.f64 (*.f64 #s(literal -1 binary64) (+.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))
(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 (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 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (.f64 #s(literal -1/8 binary64) lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* 1/2 lambda1))) (* 1/48 (* lambda2 (cos (* 1/2 lambda1)))))))))
(+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (.f64 #s(literal 1/48 binary64) lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(- 1 (+ (* (cos 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 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(- (+ 1 (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (neg.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)))))) (+.f64 (pow.f64 (sin.f64 (.f64 #s(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))))))
(- (+ 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 #s(literal 1 binary64) (-.f64 (.f64 lambda1 (-.f64 (.f64 (neg.f64 lambda1) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) (.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 (pow.f64 (sin.f64 (.f64 #s(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))))))
(- (+ 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 #s(literal 1 binary64) (.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 (neg.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)))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))) (.f64 (.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 (pow.f64 (sin.f64 (.f64 #s(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)))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 (+ lambda2 (* -1 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) (+.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)))
(- 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) (.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)))
(- 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) (.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)))
(- 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) (.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)))
(- 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 (* 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 lambda2 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #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 #s(literal 1 binary64) (-.f64 (.f64 lambda2 (.f64 #s(literal -1 binary64) (-.f64 (.f64 lambda2 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))
(- (+ 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 (-.f64 #s(literal 0 binary64) 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 (.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (.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 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.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 #s(literal 1 binary64) (-.f64 (.f64 phi2 (.f64 #s(literal -1 binary64) (-.f64 (.f64 phi2 (+.f64 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))))) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(- (+ 1 (* phi2 (- (* phi2 (- (* -1 (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+.f64 #s(literal 1 binary64) (-.f64 (.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 (.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 #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) (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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(- 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 #s(literal 1 binary64) (-.f64 (.f64 (neg.f64 phi1) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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 #s(literal 1 binary64) (-.f64 (.f64 phi1 (-.f64 (.f64 (neg.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 (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) (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 #s(literal 1 binary64) (-.f64 (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 (neg.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 (.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 (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) (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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 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) (-.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)))
(- 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) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.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)))
(- 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) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.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)))
(- 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) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.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)))
(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)))
(- 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 #s(literal 1 binary64) (-.f64 (.f64 (neg.f64 phi1) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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 (* -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 #s(literal 1 binary64) (-.f64 (.f64 (neg.f64 phi1) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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 (* -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 #s(literal 1 binary64) (-.f64 (.f64 (neg.f64 phi1) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))
(.f64 (neg.f64 phi1) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))
(* phi1 (- (/ 1 phi1) (+ (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (+ (/ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) phi1) (/ (pow (sin (* -1/2 phi2)) 2) phi1)))))
(.f64 phi1 (-.f64 (-.f64 (/.f64 #s(literal 1 binary64) phi1) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))))) (+.f64 (/.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) phi1) (/.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) phi1))))
(* phi1 (- (/ 1 phi1) (+ (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (+ (/ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) phi1) (/ (pow (sin (* -1/2 phi2)) 2) phi1)))))
(.f64 phi1 (-.f64 (-.f64 (/.f64 #s(literal 1 binary64) phi1) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))))) (+.f64 (/.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) phi1) (/.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) phi1))))
(* phi1 (- (/ 1 phi1) (+ (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (+ (/ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) phi1) (/ (pow (sin (* -1/2 phi2)) 2) phi1)))))
(.f64 phi1 (-.f64 (-.f64 (/.f64 #s(literal 1 binary64) phi1) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))))) (+.f64 (/.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) phi1) (/.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) phi1))))
(* -1 (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))
(.f64 (neg.f64 phi1) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))
(* -1 (* phi1 (- (* -1 (/ (- 1 (+ (* (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)))))))
(.f64 (neg.f64 phi1) (.f64 #s(literal -1 binary64) (-.f64 (/.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)))) phi1) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))
(* -1 (* phi1 (- (* -1 (/ (- 1 (+ (* (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)))))))
(.f64 (neg.f64 phi1) (.f64 #s(literal -1 binary64) (-.f64 (/.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)))) phi1) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))
(* -1 (* phi1 (- (* -1 (/ (- 1 (+ (* (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)))))))
(.f64 (neg.f64 phi1) (.f64 #s(literal -1 binary64) (-.f64 (/.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)))) phi1) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))
(- 1 (pow (sin (* 1/2 (- lambda1 lambda2))) 2))
(-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))
(- (+ 1 (* 1/2 (* phi1 phi2))) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))
(-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 phi1 phi2))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))
(- (+ 1 (* phi2 (- (* -1 (* phi2 (+ 1/4 (* -1/2 (pow (sin (* 1/2 (- lambda1 lambda2))) 2))))) (* -1/2 phi1)))) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 phi2 (+.f64 (.f64 (-.f64 #s(literal 0 binary64) phi2) (+.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) #s(literal -1/2 binary64)))) (.f64 phi1 #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))
(- (+ 1 (* phi2 (- (* phi2 (- (* -1/12 (* phi1 phi2)) (+ 1/4 (* -1/2 (pow (sin (* 1/2 (- lambda1 lambda2))) 2))))) (* -1/2 phi1)))) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 phi2 (+.f64 (.f64 phi2 (-.f64 (-.f64 (.f64 #s(literal -1/12 binary64) (.f64 phi1 phi2)) #s(literal 1/4 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) #s(literal -1/2 binary64)))) (.f64 phi1 #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/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 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/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 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/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 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/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 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/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 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/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 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/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 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))
(- 1 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 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 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))
(- (+ 1 (* -1 (* lambda1 (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (pow (sin (* -1/2 phi2)) 2))))
(+.f64 #s(literal 1 binary64) (-.f64 (neg.f64 (.f64 (.f64 lambda1 (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (+.f64 (.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 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))))
(- (+ 1 (* lambda1 (- (* -1 (* lambda1 (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (pow (sin (* -1/2 phi2)) 2))))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 lambda1 (-.f64 (neg.f64 (.f64 (.f64 lambda1 (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 phi2) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (+.f64 (.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 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))))
(- (+ 1 (* lambda1 (- (* lambda1 (- (* -1 (* lambda1 (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)) (pow (sin (* -1/2 phi2)) 2))))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (neg.f64 (.f64 (.f64 lambda1 (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 (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 phi2) (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))) (+.f64 (.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 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))))
(- 1 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))))
(-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/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 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/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 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/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 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))
(- 1 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 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 (.f64 (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 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 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 (.f64 (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 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 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 (.f64 (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 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 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 (.f64 (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 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 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 (* lambda2 (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)) (pow (sin (* -1/2 phi2)) 2))))
(-.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (.f64 (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.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 (* lambda2 (- (* -1 (* lambda2 (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))) (* -1 (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (+ (* phi1 (* (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 lambda2 (.f64 #s(literal -1 binary64) (-.f64 (.f64 (.f64 lambda2 (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (.f64 (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (+.f64 (.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 (* lambda2 (- (* lambda2 (- (* -1 (* lambda2 (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))) (* -1 (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (+ (* phi1 (* (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 lambda2 (+.f64 (.f64 lambda2 (-.f64 (neg.f64 (.f64 (.f64 lambda2 (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 phi2) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (+.f64 (.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 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))))
(-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/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 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/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 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/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 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))
(- 1 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (pow (sin (* -1/2 phi2)) 2))))
(-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))
(- 1 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (pow (sin (* -1/2 phi2)) 2))))
(-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))
(- 1 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (pow (sin (* -1/2 phi2)) 2))))
(-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))
(- 1 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (pow (sin (* -1/2 phi2)) 2))))
(-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (.f64 (cos.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/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 (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 #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)))
(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 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 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (-.f64 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (+.f64 (.f64 (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 #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 (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 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))) (-.f64 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (+.f64 (.f64 (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 (neg.f64 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 (neg.f64 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 (neg.f64 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 (neg.f64 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 (.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 #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 (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 (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (.f64 phi2 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (+.f64 (+.f64 (+.f64 (.f64 (.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 #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 (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 (.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 (.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 #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 (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.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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.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 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.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 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.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 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 (neg.f64 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 (neg.f64 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 (neg.f64 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 (neg.f64 lambda1)))) #s(literal 2 binary64)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* -1/2 (* (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (.f64 lambda2 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (.f64 #s(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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (.f64 #s(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))))

eval582.0ms (1.2%)

Compiler: Compiled 198808 to 6652 computations (96.7% saved)

prune611.0ms (1.3%)

Pruning

106 alts after pruning (106 fresh and 0 done)

	Pruned	Kept	Total
New	2360	94	2454
Fresh	53	12	65
Picked	5	0	5
Done	0	0	0
Total	2418	106	2524

Accuracy

80.8%

Counts

2524 → 106

Alt Table

Click to see full alt table

Status	Accuracy	Program
	57.5%	(.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 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)))
	57.1%	(.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (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)))
	38.4%	(.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 #s(literal 1/4 binary64) (.f64 (.f64 lambda1 (.f64 (.f64 (cos.f64 phi1) (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.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	57.3%	(.f64 (atan2.f64 (.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/4 binary64)) (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/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)))
	57.3%	(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	57.4%	(.f64 (atan2.f64 (sqrt.f64 (/.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 6 binary64)) (pow.f64 (.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 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 phi2) (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (-.f64 (.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (+.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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	42.6%	(.f64 (atan2.f64 (sqrt.f64 (/.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))))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	57.6%	(.f64 (atan2.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (-.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 6 binary64)) (pow.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))) #s(literal 3 binary64)))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	58.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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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.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 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.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)))
▶	0.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))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 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.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 (-.f64 lambda1 lambda2) #s(literal -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.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 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)))
	47.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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	8.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 (.f64 #s(literal -1/2304 binary64) (pow.f64 phi2 #s(literal 6 binary64))) (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	43.2%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 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)))
	47.5%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	44.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 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	48.1%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	57.1%	(.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)))
	57.0%	(.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)))
	57.1%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	57.3%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 #s(literal 1 binary64) (/.f64 (+.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)))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
▶	57.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 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	57.3%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (/.f64 #s(literal 1 binary64) (+.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)))))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	57.1%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (/.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	57.2%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	57.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 (.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.3%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2))) (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)))
	41.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)))
	57.0%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #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)))
	57.7%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (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.4%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (+.f64 (cos.f64 lambda1) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))) (.f64 #s(literal 1 binary64) (sin.f64 lambda1))))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	40.4%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #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 (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.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)))
	45.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 lambda1) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	38.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 (.f64 lambda1 (sin.f64 (-.f64 #s(literal 0 binary64) lambda2))) (cos.f64 lambda2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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.5%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (sin.f64 phi1)))) (.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	57.5%	(.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 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (-.f64 #s(literal 0 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)))
	34.6%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.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)))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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.2%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.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)))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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.5%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.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)))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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.8%	(.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 phi2) (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 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 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (.f64 phi2 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))) (.f64 phi2 (+.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) #s(literal -1/8 binary64)) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (.f64 phi2 #s(literal 1/48 binary64)))))))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	34.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 phi2) (.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 (.f64 phi1 (+.f64 (sin.f64 #s(literal 0 binary64)) (sin.f64 (.f64 phi2 #s(literal -1 binary64))))) #s(literal 2 binary64)) (+.f64 (.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi2 #s(literal -1 binary64)))))))))) (*.f64 R #s(literal 2 binary64)))
	57.2%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) (.f64 (cos.f64 phi2) (.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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	36.5%	(.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)))
	42.8%	(.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)))
	42.8%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.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))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	62.6%	(.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 (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))) (-.f64 #s(literal 0 binary64) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	58.5%	(.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 (/.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))) (-.f64 #s(literal 0 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 (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) (.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))) (-.f64 #s(literal 0 binary64) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
▶	62.6%	(.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 (-.f64 (.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	44.1%	(.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 (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 (.f64 phi1 #s(literal 1/2 binary64)) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
▶	47.1%	(.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) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	50.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) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	61.8%	(.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) (.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (+.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 R #s(literal 2 binary64)))
	61.8%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))) (*.f64 R #s(literal 2 binary64)))
	62.1%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	34.7%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (+.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 R #s(literal 2 binary64)))
	44.1%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	50.2%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	44.8%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.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 R #s(literal 2 binary64)))
	50.8%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.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 #s(literal 2 binary64)))
	43.2%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	48.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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	38.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)))
	45.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 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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.9%	(.f64 (atan2.f64 (sqrt.f64 (+.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))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	57.3%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.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)))
	41.6%	(.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)))
	44.7%	(.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 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	57.3%	(.f64 (atan2.f64 (exp.f64 (.f64 (log.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) #s(literal 1/2 binary64))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	79.4%	(.f64 R (.f64 #s(literal 2 binary64) (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 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (-.f64 #s(literal 0 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 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 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))))))))))
	79.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))))) (-.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))) (-.f64 #s(literal 0 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 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 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))))))))))
	75.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (/.f64 phi2 #s(literal 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))) (-.f64 #s(literal 0 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 (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) (.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))) (-.f64 #s(literal 0 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 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 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))))))))))
	62.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
▶	79.4%	(.f64 R (.f64 #s(literal 2 binary64) (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 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 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))))))))))
	41.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 (.f64 phi1 #s(literal 1/2 binary64)) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
	44.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 (.f64 phi1 #s(literal 1/2 binary64)) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	41.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (+.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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
	45.1%	(.f64 R (.f64 #s(literal 2 binary64) (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	50.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 (.f64 #s(literal -1/8 binary64) phi2) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	28.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (.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))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	29.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (+.f64 (sqrt.f64 (-.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)))))) (.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.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 #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))))))))))))
	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)))))))
	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 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 phi2) (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))))
	48.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
	50.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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) lambda1)) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
	31.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (.f64 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 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))))))
	31.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 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)))))))))
	39.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))))
	24.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 #s(literal 1/2 binary64) (.f64 phi1 phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))))
	33.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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 lambda1 lambda2))) #s(literal 2 binary64)))))))
	50.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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 (.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)))))))))
	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 (-.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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
	7.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 (neg.f64 phi1) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))))
	38.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 phi1 (-.f64 (-.f64 (/.f64 #s(literal 1 binary64) phi1) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))))) (+.f64 (/.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) phi1) (/.f64 (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) phi1))))))))
	41.6%	(.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 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 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))))))))))
	47.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (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 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	46.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 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.5%	(.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 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	29.6%	(.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 (-.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 (.f64 (cos.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.3%	(.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 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 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))))))))))
	58.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 phi2) (.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 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 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))))))))))
	44.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 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 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))))))))))
	49.5%	(.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 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 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))))))))))

Compiler

Compiled 16260 to 8410 computations (48.3% saved)

simplify292.0ms (0.6%)

Algorithm

1×	egg-herbie

Localize:

Found 20 expressions of interest:

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

Rules

3168×	`-lowering-.f32`
3168×	`-lowering-.f64`
2178×	`fma-lowering-fma.f32`
2178×	`fma-lowering-fma.f64`
1588×	`+-lowering-+.f64`

Iterations

Useful iterations: 3 (0.0ms)

Iter	Nodes	Cost
0	111	2217
1	263	2060
2	685	2029
3	1927	1991
4	5913	1991
0	8149	1991

Stop Event

1×	iter limit
1×	node limit

Calls

Call 1

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

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

localize830.0ms (1.8%)

Localize:

Found 20 expressions of interest:

New	Metric	Score	Program
✓	accuracy	100.0%	(cos.f64 (/.f64 phi2 #s(literal 2 binary64)))
✓	accuracy	100.0%	(cos.f64 (/.f64 phi1 #s(literal 2 binary64)))
✓	accuracy	100.0%	(cos.f64 phi2)
✓	accuracy	100.0%	(cos.f64 phi1)
✓	accuracy	100.0%	(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
✓	accuracy	100.0%	(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
✓	accuracy	100.0%	(cos.f64 phi2)
✓	accuracy	100.0%	(cos.f64 phi1)
✓	accuracy	100.0%	(cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))
✓	accuracy	100.0%	(cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))
✓	accuracy	100.0%	(cos.f64 phi2)
✓	accuracy	100.0%	(cos.f64 phi1)
✓	accuracy	100.0%	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
✓	accuracy	100.0%	(cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
✓	accuracy	100.0%	(cos.f64 phi2)
✓	accuracy	100.0%	(cos.f64 phi1)
✓	accuracy	100.0%	(cos.f64 (/.f64 phi2 #s(literal 2 binary64)))
✓	accuracy	100.0%	(cos.f64 (/.f64 phi1 #s(literal 2 binary64)))
✓	accuracy	100.0%	(cos.f64 phi2)
✓	accuracy	100.0%	(cos.f64 phi1)

Results

423.0ms

256×

invalid

Compiler

Compiled 2284 to 112 computations (95.1% saved)

Precisions

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

ival-mult: 62.0ms (23.1% of total)

ival-sin: 54.0ms (20.1% of total)

ival-cos: 47.0ms (17.5% of total)

ival-div: 20.0ms (7.4% of total)

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

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

ival-pow: 17.0ms (6.3% of total)

ival-add: 13.0ms (4.8% of total)

ival-atan2: 12.0ms (4.5% of total)

...c/correct-round.rkt:119:19: 5.0ms (1.9% of total)

const: 1.0ms (0.4% of total)

backward-pass: 0.0ms (0% of total)

series314.0ms (0.7%)

Counts

30 → 1200

Calls

Call 1

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

Calls

300 calls:

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

rewrite293.0ms (0.6%)

Algorithm

1×	batch-egg-rewrite

Rules

2882×	`-lowering-.f32`
2882×	`-lowering-.f64`
2092×	`/-lowering-/.f32`
2092×	`/-lowering-/.f64`
1540×	`fma-lowering-fma.f32`

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	111	1018
1	676	774
2	6060	774
0	8460	774

Stop Event

1×	iter limit
1×	node limit

Counts

30 → 300

Calls

Call 1

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

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

simplify905.0ms (1.9%)

Algorithm

1×	egg-herbie

Rules

6264×	`-lowering-.f32`
6264×	`-lowering-.f64`
5542×	`+-lowering-+.f64`
5542×	`+-lowering-+.f32`
1204×	`*-commutative`

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	1189	61087
1	3875	59169
0	8518	59169

Stop Event

1×	iter limit
1×	node limit

Counts

1200 → 1200

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

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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (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 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 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)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (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 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 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)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (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 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 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)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (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 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 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)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (pow (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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) (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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 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) (pow (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 #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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 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) (pow (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 #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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 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) (pow (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 #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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 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) (pow (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 #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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 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) (pow (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 #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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 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) (pow (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 #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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 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) (pow (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 #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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 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) (pow (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 #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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 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) (pow (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 #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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 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) (pow (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 #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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 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) (pow (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 #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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 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) (pow (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 #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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 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) (pow (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 #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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 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) (pow (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 #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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 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) (pow (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 #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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 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) (pow (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 #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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 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) (pow (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 #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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 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) (pow (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 #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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 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) (pow (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 #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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 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) (pow (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 #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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 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) (pow (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 #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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 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) (pow (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 #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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 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) (pow (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 #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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 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) (pow (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 #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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 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) (pow (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 #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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 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) (pow (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 #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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 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) (pow (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 #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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 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) (pow (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 #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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 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) (pow (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 #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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 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) (pow (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 #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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 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) (pow (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 #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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 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) (pow (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 #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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 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) (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 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 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)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 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) (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 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 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)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 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) (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 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 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)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 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) (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 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 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)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 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) (pow (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 #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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 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) (pow (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 #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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 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) (pow (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 #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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 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) (pow (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 #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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 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) (pow (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 #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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 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) (pow (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 #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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 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) (pow (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 #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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 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) (pow (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 #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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 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) (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 #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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 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) (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 #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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 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) (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 #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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(* 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) (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 #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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (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)))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 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)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (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)))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 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)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (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)))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 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)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (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)))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 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)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (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)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (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)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (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)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) (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)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* -1/2 (* (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))
(+.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (* phi2 (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))))
(+.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (.f64 phi2 (.f64 (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 #s(literal 1/2 binary64) (.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 (pow.f64 (sin.f64 (.f64 phi1 #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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))))))))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (* 1/2 (* (* phi2 (- (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (* -1/2 (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))))))
(+.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (.f64 phi2 (+.f64 (.f64 (.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 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (+.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 phi1 #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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (.f64 phi2 (+.f64 (.f64 (.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 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (sin.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 (pow.f64 (sin.f64 (.f64 phi1 #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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))) (* -1/2 (* (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))))
(+.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))) (* phi1 (+ (* -1/2 (* (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (* 1/2 (* (* phi1 (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))))))
(+.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (.f64 phi1 (.f64 (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 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) (.f64 #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 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))) (* phi1 (+ (* -1/2 (* (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))))))) (* 1/2 (* (* phi1 (- (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (* -1/2 (/ (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))))))))
(+.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (.f64 phi1 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (.f64 phi1 (.f64 #s(literal 1/2 binary64) (.f64 (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 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (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 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (+.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 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* 1/2 (* (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (.f64 (cos.f64 phi2) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (.f64 lambda1 (.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) (+.f64 (.f64 lambda1 (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (.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 (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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda1 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))) (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (* (sin (* -1/2 lambda2)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))) (.f64 lambda1 (.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) (+.f64 (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (.f64 #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 (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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) (.f64 lambda1 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal -1/6 binary64))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (.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 (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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))))) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* -1/2 (* (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 lambda2 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (.f64 lambda2 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (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 #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 #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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (* (sin (* 1/2 lambda1)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (.f64 lambda2 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (.f64 lambda2 (.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))) (+.f64 (+.f64 (.f64 (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (.f64 lambda2 (+.f64 (.f64 (.f64 (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 (cos.f64 phi1) (.f64 (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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))))) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.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)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.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)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.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)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.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)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.f64 (.f64 #s(literal 2 binary64) R) (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 lambda1))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.f64 (.f64 #s(literal 2 binary64) R) (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 lambda1))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.f64 (.f64 #s(literal 2 binary64) R) (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 lambda1))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.f64 (.f64 #s(literal 2 binary64) R) (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 lambda1))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.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)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.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)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.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)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.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)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(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 lambda1))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(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 lambda1))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(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 lambda1))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(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 lambda1))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 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 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (+.f64 (.f64 phi1 (+.f64 (.f64 (.f64 (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 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (.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 (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 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))) #s(literal -1/6 binary64)) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))) (+.f64 (.f64 (.f64 (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 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 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 (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 #s(literal 1/2 binary64) (.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 (pow.f64 (sin.f64 (.f64 phi1 #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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))))))))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (* 1/2 (* (* phi2 (- (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (* -1/2 (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))))))
(+.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (.f64 phi2 (+.f64 (.f64 (.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 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (+.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 phi1 #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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (.f64 phi2 (+.f64 (.f64 (.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 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (sin.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 (pow.f64 (sin.f64 (.f64 phi1 #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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(+ (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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (.f64 (cos.f64 phi2) (cos.f64 (.f64 lambda2 #s(literal -1/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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(+ (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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 lambda1 (.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (+.f64 (.f64 lambda1 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (.f64 #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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 lambda2 #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 (* (* (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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (cos.f64 (.f64 lambda2 #s(literal -1/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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 lambda1 (.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (+.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 lambda1 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal -1/6 binary64))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))))))))
(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 (.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))) (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* -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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 lambda2 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (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 #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 #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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 lambda2 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 lambda2 (.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (+.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (.f64 #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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 lambda2 (+.f64 (.f64 (.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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 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 (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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))
(+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(+.f64 (+.f64 (.f64 (cos.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 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))))))
(+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 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 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (+.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (.f64 phi1 (.f64 (.f64 (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 (pow.f64 (sin.f64 (.f64 phi1 #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 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 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (+.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* 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 (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 lambda1 (cos.f64 phi1)) (.f64 (.f64 (cos.f64 phi2) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (sin.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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (.f64 lambda1 (+.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (.f64 lambda1 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))))))
(+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+.f64 (.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 lambda1 (+.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (.f64 lambda1 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (.f64 lambda1 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal -1/6 binary64))))))))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (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 (.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))) (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* -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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (.f64 lambda2 (.f64 (.f64 (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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (.f64 lambda2 (-.f64 (.f64 lambda2 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 (+ (* 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (.f64 lambda2 (-.f64 (.f64 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 (.f64 (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)))))))
(+ (* (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/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 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 (.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 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 (.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 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 (.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 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 (.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 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 (.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 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 (.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 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 (.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 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 (.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 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 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (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/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 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 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (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/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 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 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (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/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 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 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (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/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 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 (.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 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 (.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 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 (.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 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 (.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 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 (.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 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 (.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 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 (.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 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 (.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 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 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 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 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 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 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 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 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 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 (.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 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 (.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 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 (.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 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 (.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 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 (.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 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 (.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 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 (.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 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 (.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -2 (+ lambda2 (* -1 lambda1)))))))) (+ 1 (cos (neg (+ 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 #s(literal 1/2 binary64) (-.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 (-.f64 lambda2 lambda1) #s(literal -2 binary64)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -2 (+ lambda2 (* -1 lambda1)))))))) (+ 1 (cos (neg (+ 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 #s(literal 1/2 binary64) (-.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 (-.f64 lambda2 lambda1) #s(literal -2 binary64)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -2 (+ lambda2 (* -1 lambda1)))))))) (+ 1 (cos (neg (+ 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 #s(literal 1/2 binary64) (-.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 (-.f64 lambda2 lambda1) #s(literal -2 binary64)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -2 (+ lambda2 (* -1 lambda1)))))))) (+ 1 (cos (neg (+ 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 #s(literal 1/2 binary64) (-.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 (-.f64 lambda2 lambda1) #s(literal -2 binary64)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 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 (.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 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 (.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 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 (.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 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 (.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 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 (.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 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 (.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 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 (.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 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 (.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (+ lambda1 (* -1 lambda2)))))))) (+ 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 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (+ lambda1 (* -1 lambda2)))))))) (+ 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 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (+ lambda1 (* -1 lambda2)))))))) (+ 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 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (+ lambda1 (* -1 lambda2)))))))) (+ 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 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 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 (.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 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 (.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 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 (.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 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 (.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 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 (.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 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 (.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 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 (.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 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 (.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 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 (.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 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 (.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 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 (.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 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 (.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 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 (.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 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 (.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 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 (.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 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 (.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 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 (.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 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 (.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 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 (.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 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 (.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 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 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (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/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 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 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (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/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 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 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (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/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 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 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (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/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 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 (.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 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 (.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 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 (.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 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 (.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 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 (.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 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 (.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 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 (.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 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 (.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 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 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 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 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 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 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 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 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 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 (.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 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 (.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 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 (.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 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 (.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 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 (.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 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 (.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 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 (.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 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 (.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -2 (+ lambda2 (* -1 lambda1)))))))) (+ 1 (cos (neg (+ 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 #s(literal 1/2 binary64) (-.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 (-.f64 lambda2 lambda1) #s(literal -2 binary64)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -2 (+ lambda2 (* -1 lambda1)))))))) (+ 1 (cos (neg (+ 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 #s(literal 1/2 binary64) (-.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 (-.f64 lambda2 lambda1) #s(literal -2 binary64)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -2 (+ lambda2 (* -1 lambda1)))))))) (+ 1 (cos (neg (+ 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 #s(literal 1/2 binary64) (-.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 (-.f64 lambda2 lambda1) #s(literal -2 binary64)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -2 (+ lambda2 (* -1 lambda1)))))))) (+ 1 (cos (neg (+ 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 #s(literal 1/2 binary64) (-.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 (-.f64 lambda2 lambda1) #s(literal -2 binary64)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 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 (.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 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 (.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 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 (.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 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 (.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 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 (.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 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 (.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 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 (.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 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 (.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (+ lambda1 (* -1 lambda2)))))))) (+ 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 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (+ lambda1 (* -1 lambda2)))))))) (+ 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 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (+ lambda1 (* -1 lambda2)))))))) (+ 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 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (+ lambda1 (* -1 lambda2)))))))) (+ 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 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))))))))
(sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2)))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (/.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi2)))))
(+ (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2)))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))) (* 1/4 (* (* phi1 (sin (neg phi2))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (/ (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2)))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (/.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi2))))) (.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 #s(literal 1/2 binary64) (-.f64 (/.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi2))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2)))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))) (* phi1 (+ (* 1/4 (* (sin (neg phi2)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (/ (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2)))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (* 1/2 (* (* phi1 (- (* -1/4 (/ (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2)))))) (+ 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos (neg phi2))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (/ (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2)))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (/ (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2)))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (/.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 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 (.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi2)))))) (+.f64 (neg.f64 (.f64 #s(literal 1/4 binary64) (sin.f64 phi2))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (-.f64 (.f64 #s(literal -1/4 binary64) (-.f64 (/.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 lambda2)))))) (+.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 #s(literal 1/2 binary64) (-.f64 (/.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi2))))))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2)))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))) (* phi1 (+ (* 1/4 (* (sin (neg phi2)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (/ (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2)))))) (+ 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/2 (* 1/2 (cos (* 2 (- lambda1 lambda2)))))) (+ 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos (neg phi2))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (/ (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2)))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))))))) (- (+ 1/2 (* 1/2 (/ (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2)))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (/ (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2)))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (* 1/2 (* (- (* -1/4 (/ (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2)))))) (+ 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos (neg phi2))) (* 1/16 (/ (pow (sin (neg phi2)) 2) (- (+ 1/2 (* 1/2 (/ (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2)))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (/ (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2)))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (/.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi2))))) (.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 #s(literal 1/2 binary64) (-.f64 (/.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 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 (.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi2)))))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (+.f64 (neg.f64 (.f64 (sin.f64 phi2) #s(literal 1/12 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi2)) (/.f64 (-.f64 (.f64 #s(literal -1/4 binary64) (-.f64 (/.f64 (.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 lambda2)))))) (+.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 #s(literal 1/2 binary64) (-.f64 (/.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi2)))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (/.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi2)))))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal -1/4 binary64) (-.f64 (/.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 lambda2)))))) (+.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 #s(literal 1/2 binary64) (-.f64 (/.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi2)))))))))))))
(sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 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 (.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi2 phi1))))))
(sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 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 (.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi2 phi1))))))
(sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 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 (.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi2 phi1))))))
(sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 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 (.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi2 phi1))))))
(sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2)))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (/.f64 (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi1)))))
(+ (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2)))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))) (* -1/4 (* (* phi2 (sin phi1)) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2)))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (/.f64 (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 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 (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi1))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2)))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))) (* phi2 (+ (* -1/4 (* (sin phi1) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2)))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (* 1/2 (* (* phi2 (- (* -1/4 (/ (* (cos phi1) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2)))))) (+ 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos phi1)) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2)))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2)))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (/.f64 (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 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 (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 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 (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.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 #s(literal 1/2 binary64) (-.f64 (/.f64 (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi1))))))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2)))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))) (* phi2 (+ (* -1/4 (* (sin phi1) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2)))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (* phi2 (+ (* -1/2 (* (* phi2 (+ (* -1/4 (/ (* (sin phi1) (- (* -1/4 (/ (* (cos phi1) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2)))))) (+ 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos phi1)) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2)))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))))))) (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2)))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))) (* -1/12 (sin phi1)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2)))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (* 1/2 (* (- (* -1/4 (/ (* (cos phi1) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2)))))) (+ 1 (cos (- lambda1 lambda2))))) (+ (* -1/4 (cos phi1)) (* 1/16 (/ (pow (sin phi1) 2) (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2)))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2)))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (/.f64 (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 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 (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 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 (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 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 (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.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 #s(literal 1/2 binary64) (-.f64 (/.f64 (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi1)))))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (/.f64 (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi1))))) (.f64 (sin.f64 phi1) #s(literal -1/12 binary64))))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal -1/4 binary64) (-.f64 (/.f64 (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.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 #s(literal 1/2 binary64) (-.f64 (/.f64 (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi1)))))))))))))
(sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -2 lambda2)))))) (+ 1 (cos (neg lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 lambda2 #s(literal -2 binary64)))))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (cos.f64 (-.f64 phi1 phi2))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -2 lambda2)))))) (+ 1 (cos (neg lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (* 1/4 (* (* lambda1 (- (/ (* (cos phi1) (* (cos phi2) (sin (* -2 lambda2)))) (+ 1 (cos (neg lambda2)))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- 1/2 (* 1/2 (cos (* -2 lambda2))))))) (pow (+ 1 (cos (neg lambda2))) 2))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -2 lambda2)))))) (+ 1 (cos (neg lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 lambda2 #s(literal -2 binary64)))))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (cos.f64 (-.f64 phi1 phi2)))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 lambda1 (+.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -2 binary64))))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal -2 binary64))))))) (pow.f64 (+.f64 #s(literal 1 binary64) (cos.f64 lambda2)) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 lambda2 #s(literal -2 binary64)))))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (cos.f64 (-.f64 phi1 phi2)))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -2 lambda2)))))) (+ 1 (cos (neg lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda1 (+ (* 1/4 (* (sqrt (/ 1 (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -2 lambda2)))))) (+ 1 (cos (neg lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))) (- (/ (* (cos phi1) (* (cos phi2) (sin (* -2 lambda2)))) (+ 1 (cos (neg lambda2)))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- 1/2 (* 1/2 (cos (* -2 lambda2))))))) (pow (+ 1 (cos (neg lambda2))) 2)))))) (* 1/2 (* (* lambda1 (- (* 1/2 (- (/ (* (cos phi1) (* (cos phi2) (cos (* -2 lambda2)))) (+ 1 (cos (neg lambda2)))) (+ (* -1 (/ (* (sin (neg lambda2)) (- (/ (* (cos phi1) (* (cos phi2) (sin (* -2 lambda2)))) (+ 1 (cos (neg lambda2)))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- 1/2 (* 1/2 (cos (* -2 lambda2))))))) (pow (+ 1 (cos (neg lambda2))) 2))))) (+ 1 (cos (neg lambda2))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (- 1/2 (* 1/2 (cos (* -2 lambda2))))))) (pow (+ 1 (cos (neg lambda2))) 2)))))) (* 1/16 (/ (pow (- (/ (* (cos phi1) (* (cos phi2) (sin (* -2 lambda2)))) (+ 1 (cos (neg lambda2)))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- 1/2 (* 1/2 (cos (* -2 lambda2))))))) (pow (+ 1 (cos (neg lambda2))) 2)))) 2) (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -2 lambda2)))))) (+ 1 (cos (neg lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -2 lambda2)))))) (+ 1 (cos (neg lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 lambda2 #s(literal -2 binary64)))))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (cos.f64 (-.f64 phi1 phi2)))))) (.f64 lambda1 (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (+.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -2 binary64))))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal -2 binary64))))))) (pow.f64 (+.f64 #s(literal 1 binary64) (cos.f64 lambda2)) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 lambda2 #s(literal -2 binary64)))))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (cos.f64 (-.f64 phi1 phi2))))))))) (.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (+.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 lambda2 #s(literal -2 binary64))))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (-.f64 (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal -2 binary64)))))))) (pow.f64 (+.f64 #s(literal 1 binary64) (cos.f64 lambda2)) #s(literal 2 binary64))) (neg.f64 (.f64 (sin.f64 lambda2) (/.f64 (+.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -2 binary64))))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal -2 binary64))))))) (pow.f64 (+.f64 #s(literal 1 binary64) (cos.f64 lambda2)) #s(literal 2 binary64)))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda2)))))))) (.f64 (/.f64 (pow.f64 (+.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -2 binary64))))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal -2 binary64))))))) (pow.f64 (+.f64 #s(literal 1 binary64) (cos.f64 lambda2)) #s(literal 2 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 lambda2 #s(literal -2 binary64)))))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (cos.f64 (-.f64 phi1 phi2)))))) #s(literal -1/16 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 lambda2 #s(literal -2 binary64)))))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (cos.f64 (-.f64 phi1 phi2)))))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -2 lambda2)))))) (+ 1 (cos (neg lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda1 (+ (* 1/4 (* (sqrt (/ 1 (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -2 lambda2)))))) (+ 1 (cos (neg lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))) (- (/ (* (cos phi1) (* (cos phi2) (sin (* -2 lambda2)))) (+ 1 (cos (neg lambda2)))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- 1/2 (* 1/2 (cos (* -2 lambda2))))))) (pow (+ 1 (cos (neg lambda2))) 2)))))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* 1/2 (- (* -2/3 (/ (* (cos phi1) (* (cos phi2) (sin (* -2 lambda2)))) (+ 1 (cos (neg lambda2))))) (+ (* -1 (/ (* (sin (neg lambda2)) (- (/ (* (cos phi1) (* (cos phi2) (cos (* -2 lambda2)))) (+ 1 (cos (neg lambda2)))) (+ (* -1 (/ (* (sin (neg lambda2)) (- (/ (* (cos phi1) (* (cos phi2) (sin (* -2 lambda2)))) (+ 1 (cos (neg lambda2)))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- 1/2 (* 1/2 (cos (* -2 lambda2))))))) (pow (+ 1 (cos (neg lambda2))) 2))))) (+ 1 (cos (neg lambda2))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (- 1/2 (* 1/2 (cos (* -2 lambda2))))))) (pow (+ 1 (cos (neg lambda2))) 2)))))) (+ 1 (cos (neg lambda2))))) (+ (* -1/2 (/ (* (cos (neg lambda2)) (- (/ (* (cos phi1) (* (cos phi2) (sin (* -2 lambda2)))) (+ 1 (cos (neg lambda2)))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- 1/2 (* 1/2 (cos (* -2 lambda2))))))) (pow (+ 1 (cos (neg lambda2))) 2))))) (+ 1 (cos (neg lambda2))))) (* 1/6 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- 1/2 (* 1/2 (cos (* -2 lambda2))))))) (pow (+ 1 (cos (neg lambda2))) 2))))))) (* 1/4 (/ (* (- (* 1/2 (- (/ (* (cos phi1) (* (cos phi2) (cos (* -2 lambda2)))) (+ 1 (cos (neg lambda2)))) (+ (* -1 (/ (* (sin (neg lambda2)) (- (/ (* (cos phi1) (* (cos phi2) (sin (* -2 lambda2)))) (+ 1 (cos (neg lambda2)))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- 1/2 (* 1/2 (cos (* -2 lambda2))))))) (pow (+ 1 (cos (neg lambda2))) 2))))) (+ 1 (cos (neg lambda2))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (- 1/2 (* 1/2 (cos (* -2 lambda2))))))) (pow (+ 1 (cos (neg lambda2))) 2)))))) (* 1/16 (/ (pow (- (/ (* (cos phi1) (* (cos phi2) (sin (* -2 lambda2)))) (+ 1 (cos (neg lambda2)))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- 1/2 (* 1/2 (cos (* -2 lambda2))))))) (pow (+ 1 (cos (neg lambda2))) 2)))) 2) (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -2 lambda2)))))) (+ 1 (cos (neg lambda2)))))) (* 1/2 (cos (- phi1 phi2))))))) (- (/ (* (cos phi1) (* (cos phi2) (sin (* -2 lambda2)))) (+ 1 (cos (neg lambda2)))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- 1/2 (* 1/2 (cos (* -2 lambda2))))))) (pow (+ 1 (cos (neg lambda2))) 2))))) (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -2 lambda2)))))) (+ 1 (cos (neg lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -2 lambda2)))))) (+ 1 (cos (neg lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (- (* 1/2 (- (/ (* (cos phi1) (* (cos phi2) (cos (* -2 lambda2)))) (+ 1 (cos (neg lambda2)))) (+ (* -1 (/ (* (sin (neg lambda2)) (- (/ (* (cos phi1) (* (cos phi2) (sin (* -2 lambda2)))) (+ 1 (cos (neg lambda2)))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- 1/2 (* 1/2 (cos (* -2 lambda2))))))) (pow (+ 1 (cos (neg lambda2))) 2))))) (+ 1 (cos (neg lambda2))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (- 1/2 (* 1/2 (cos (* -2 lambda2))))))) (pow (+ 1 (cos (neg lambda2))) 2)))))) (* 1/16 (/ (pow (- (/ (* (cos phi1) (* (cos phi2) (sin (* -2 lambda2)))) (+ 1 (cos (neg lambda2)))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- 1/2 (* 1/2 (cos (* -2 lambda2))))))) (pow (+ 1 (cos (neg lambda2))) 2)))) 2) (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -2 lambda2)))))) (+ 1 (cos (neg lambda2)))))) (* 1/2 (cos (- phi1 phi2))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -2 lambda2)))))) (+ 1 (cos (neg lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 lambda2 #s(literal -2 binary64)))))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (cos.f64 (-.f64 phi1 phi2)))))) (.f64 lambda1 (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (+.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -2 binary64))))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal -2 binary64))))))) (pow.f64 (+.f64 #s(literal 1 binary64) (cos.f64 lambda2)) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 lambda2 #s(literal -2 binary64)))))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (cos.f64 (-.f64 phi1 phi2))))))))) (.f64 lambda1 (.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 (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal -2 binary64)))))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (cos.f64 (-.f64 phi1 phi2))))))) (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (/.f64 (.f64 #s(literal -2/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -2 binary64)))))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (-.f64 (+.f64 (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (+.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -2 binary64))))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal -2 binary64))))))) (pow.f64 (+.f64 #s(literal 1 binary64) (cos.f64 lambda2)) #s(literal 2 binary64)))))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (/.f64 (.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal -2 binary64)))))))) (pow.f64 (+.f64 #s(literal 1 binary64) (cos.f64 lambda2)) #s(literal 2 binary64)))) (neg.f64 (.f64 (sin.f64 lambda2) (/.f64 (-.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 lambda2 #s(literal -2 binary64))))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (-.f64 (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal -2 binary64)))))))) (pow.f64 (+.f64 #s(literal 1 binary64) (cos.f64 lambda2)) #s(literal 2 binary64))) (neg.f64 (.f64 (sin.f64 lambda2) (/.f64 (+.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -2 binary64))))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal -2 binary64))))))) (pow.f64 (+.f64 #s(literal 1 binary64) (cos.f64 lambda2)) #s(literal 2 binary64)))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda2))))))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda2)))))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (+.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -2 binary64))))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal -2 binary64))))))) (pow.f64 (+.f64 #s(literal 1 binary64) (cos.f64 lambda2)) #s(literal 2 binary64)))) (+.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 lambda2 #s(literal -2 binary64))))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (-.f64 (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal -2 binary64)))))))) (pow.f64 (+.f64 #s(literal 1 binary64) (cos.f64 lambda2)) #s(literal 2 binary64))) (neg.f64 (.f64 (sin.f64 lambda2) (/.f64 (+.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -2 binary64))))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal -2 binary64))))))) (pow.f64 (+.f64 #s(literal 1 binary64) (cos.f64 lambda2)) #s(literal 2 binary64)))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda2)))))))) (.f64 (/.f64 (pow.f64 (+.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -2 binary64))))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal -2 binary64))))))) (pow.f64 (+.f64 #s(literal 1 binary64) (cos.f64 lambda2)) #s(literal 2 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 lambda2 #s(literal -2 binary64)))))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (cos.f64 (-.f64 phi1 phi2)))))) #s(literal -1/16 binary64)))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 lambda2 #s(literal -2 binary64)))))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (cos.f64 (-.f64 phi1 phi2))))))))) (+.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 lambda2 #s(literal -2 binary64))))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (-.f64 (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal -2 binary64)))))))) (pow.f64 (+.f64 #s(literal 1 binary64) (cos.f64 lambda2)) #s(literal 2 binary64))) (neg.f64 (.f64 (sin.f64 lambda2) (/.f64 (+.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -2 binary64))))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal -2 binary64))))))) (pow.f64 (+.f64 #s(literal 1 binary64) (cos.f64 lambda2)) #s(literal 2 binary64)))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda2)))))))) (.f64 (/.f64 (pow.f64 (+.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -2 binary64))))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal -2 binary64))))))) (pow.f64 (+.f64 #s(literal 1 binary64) (cos.f64 lambda2)) #s(literal 2 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 lambda2 #s(literal -2 binary64)))))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (cos.f64 (-.f64 phi1 phi2)))))) #s(literal -1/16 binary64))))))))))
(sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -2 (+ lambda2 (* -1 lambda1)))))))) (+ 1 (cos (neg (+ lambda2 (* -1 lambda1)))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 (-.f64 lambda2 lambda1) #s(literal -2 binary64)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -2 (+ lambda2 (* -1 lambda1)))))))) (+ 1 (cos (neg (+ lambda2 (* -1 lambda1)))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 (-.f64 lambda2 lambda1) #s(literal -2 binary64)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -2 (+ lambda2 (* -1 lambda1)))))))) (+ 1 (cos (neg (+ lambda2 (* -1 lambda1)))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 (-.f64 lambda2 lambda1) #s(literal -2 binary64)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -2 (+ lambda2 (* -1 lambda1)))))))) (+ 1 (cos (neg (+ lambda2 (* -1 lambda1)))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 (-.f64 lambda2 lambda1) #s(literal -2 binary64)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 lambda1)))))) (+ 1 (cos lambda1))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) lambda1))))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda1))) (cos.f64 (-.f64 phi1 phi2))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 lambda1)))))) (+ 1 (cos lambda1))))) (* 1/2 (cos (- phi1 phi2))))) (* 1/4 (* (* lambda2 (- (* -1 (/ (* (cos phi1) (* (cos phi2) (sin (* 2 lambda1)))) (+ 1 (cos lambda1)))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- 1/2 (* 1/2 (cos (* 2 lambda1))))))) (pow (+ 1 (cos lambda1)) 2)))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 lambda1)))))) (+ 1 (cos lambda1))))) (* 1/2 (cos (- phi1 phi2)))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) lambda1))))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda1))) (cos.f64 (-.f64 phi1 phi2)))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 lambda2 (-.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 2 binary64) lambda1)))) (neg.f64 (+.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (+.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) (cos.f64 lambda1)) #s(literal 2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) lambda1))))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda1))) (cos.f64 (-.f64 phi1 phi2))))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 lambda1)))))) (+ 1 (cos lambda1))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda2 (+ (* 1/4 (* (- (* -1 (/ (* (cos phi1) (* (cos phi2) (sin (* 2 lambda1)))) (+ 1 (cos lambda1)))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- 1/2 (* 1/2 (cos (* 2 lambda1))))))) (pow (+ 1 (cos lambda1)) 2))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 lambda1)))))) (+ 1 (cos lambda1))))) (* 1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (* lambda2 (- (* 1/2 (- (/ (* (cos phi1) (* (cos phi2) (cos (* 2 lambda1)))) (+ 1 (cos lambda1))) (+ (* -1/2 (/ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 lambda1))))))) (pow (+ 1 (cos lambda1)) 2))) (/ (* (sin lambda1) (- (* -1 (/ (* (cos phi1) (* (cos phi2) (sin (* 2 lambda1)))) (+ 1 (cos lambda1)))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- 1/2 (* 1/2 (cos (* 2 lambda1))))))) (pow (+ 1 (cos lambda1)) 2)))) (+ 1 (cos lambda1)))))) (* 1/16 (/ (pow (- (* -1 (/ (* (cos phi1) (* (cos phi2) (sin (* 2 lambda1)))) (+ 1 (cos lambda1)))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- 1/2 (* 1/2 (cos (* 2 lambda1))))))) (pow (+ 1 (cos lambda1)) 2))) 2) (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 lambda1)))))) (+ 1 (cos lambda1))))) (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 lambda1)))))) (+ 1 (cos lambda1))))) (* 1/2 (cos (- phi1 phi2)))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) lambda1))))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda1))) (cos.f64 (-.f64 phi1 phi2)))))) (.f64 lambda2 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) lambda1))))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda1))) (cos.f64 (-.f64 phi1 phi2))))))) (+.f64 (.f64 #s(literal 1/4 binary64) (-.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 2 binary64) lambda1)))) (neg.f64 (+.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (+.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) (cos.f64 lambda1)) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (+.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 2 binary64) lambda1)))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda1))) (.f64 #s(literal 1/2 binary64) (/.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 #s(literal 2 binary64) lambda1))))) (cos.f64 lambda1)) (pow.f64 (+.f64 #s(literal 1 binary64) (cos.f64 lambda1)) #s(literal 2 binary64))))) (/.f64 (.f64 (sin.f64 lambda1) (-.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 2 binary64) lambda1)))) (neg.f64 (+.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (+.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) (cos.f64 lambda1)) #s(literal 2 binary64))))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda1))))) (.f64 (/.f64 (pow.f64 (-.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 2 binary64) lambda1)))) (neg.f64 (+.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (+.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) (cos.f64 lambda1)) #s(literal 2 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) lambda1))))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda1))) (cos.f64 (-.f64 phi1 phi2)))))) #s(literal -1/16 binary64)))))))))
(+ (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 lambda1)))))) (+ 1 (cos lambda1))))) (* 1/2 (cos (- phi1 phi2))))) (* lambda2 (+ (* 1/4 (* (- (* -1 (/ (* (cos phi1) (* (cos phi2) (sin (* 2 lambda1)))) (+ 1 (cos lambda1)))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- 1/2 (* 1/2 (cos (* 2 lambda1))))))) (pow (+ 1 (cos lambda1)) 2))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 lambda1)))))) (+ 1 (cos lambda1))))) (* 1/2 (cos (- phi1 phi2)))))))) (* lambda2 (+ (* 1/2 (* (* lambda2 (- (* 1/2 (- (* 2/3 (/ (* (cos phi1) (* (cos phi2) (sin (* 2 lambda1)))) (+ 1 (cos lambda1)))) (+ (* -1/2 (/ (* (cos lambda1) (- (* -1 (/ (* (cos phi1) (* (cos phi2) (sin (* 2 lambda1)))) (+ 1 (cos lambda1)))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- 1/2 (* 1/2 (cos (* 2 lambda1))))))) (pow (+ 1 (cos lambda1)) 2)))) (+ 1 (cos lambda1)))) (+ (* -1/6 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- 1/2 (* 1/2 (cos (* 2 lambda1))))))) (pow (+ 1 (cos lambda1)) 2))) (/ (* (sin lambda1) (- (/ (* (cos phi1) (* (cos phi2) (cos (* 2 lambda1)))) (+ 1 (cos lambda1))) (+ (* -1/2 (/ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 lambda1))))))) (pow (+ 1 (cos lambda1)) 2))) (/ (* (sin lambda1) (- (* -1 (/ (* (cos phi1) (* (cos phi2) (sin (* 2 lambda1)))) (+ 1 (cos lambda1)))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- 1/2 (* 1/2 (cos (* 2 lambda1))))))) (pow (+ 1 (cos lambda1)) 2)))) (+ 1 (cos lambda1)))))) (+ 1 (cos lambda1))))))) (* 1/4 (/ (* (- (* -1 (/ (* (cos phi1) (* (cos phi2) (sin (* 2 lambda1)))) (+ 1 (cos lambda1)))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- 1/2 (* 1/2 (cos (* 2 lambda1))))))) (pow (+ 1 (cos lambda1)) 2))) (- (* 1/2 (- (/ (* (cos phi1) (* (cos phi2) (cos (* 2 lambda1)))) (+ 1 (cos lambda1))) (+ (* -1/2 (/ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 lambda1))))))) (pow (+ 1 (cos lambda1)) 2))) (/ (* (sin lambda1) (- (* -1 (/ (* (cos phi1) (* (cos phi2) (sin (* 2 lambda1)))) (+ 1 (cos lambda1)))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- 1/2 (* 1/2 (cos (* 2 lambda1))))))) (pow (+ 1 (cos lambda1)) 2)))) (+ 1 (cos lambda1)))))) (* 1/16 (/ (pow (- (* -1 (/ (* (cos phi1) (* (cos phi2) (sin (* 2 lambda1)))) (+ 1 (cos lambda1)))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- 1/2 (* 1/2 (cos (* 2 lambda1))))))) (pow (+ 1 (cos lambda1)) 2))) 2) (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 lambda1)))))) (+ 1 (cos lambda1))))) (* 1/2 (cos (- phi1 phi2)))))))) (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 lambda1)))))) (+ 1 (cos lambda1))))) (* 1/2 (cos (- phi1 phi2)))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 lambda1)))))) (+ 1 (cos lambda1))))) (* 1/2 (cos (- phi1 phi2)))))))) (* 1/2 (* (- (* 1/2 (- (/ (* (cos phi1) (* (cos phi2) (cos (* 2 lambda1)))) (+ 1 (cos lambda1))) (+ (* -1/2 (/ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 lambda1))))))) (pow (+ 1 (cos lambda1)) 2))) (/ (* (sin lambda1) (- (* -1 (/ (* (cos phi1) (* (cos phi2) (sin (* 2 lambda1)))) (+ 1 (cos lambda1)))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- 1/2 (* 1/2 (cos (* 2 lambda1))))))) (pow (+ 1 (cos lambda1)) 2)))) (+ 1 (cos lambda1)))))) (* 1/16 (/ (pow (- (* -1 (/ (* (cos phi1) (* (cos phi2) (sin (* 2 lambda1)))) (+ 1 (cos lambda1)))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- 1/2 (* 1/2 (cos (* 2 lambda1))))))) (pow (+ 1 (cos lambda1)) 2))) 2) (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 lambda1)))))) (+ 1 (cos lambda1))))) (* 1/2 (cos (- phi1 phi2))))))) (sqrt (/ 1 (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 lambda1)))))) (+ 1 (cos lambda1))))) (* 1/2 (cos (- phi1 phi2)))))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) lambda1))))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda1))) (cos.f64 (-.f64 phi1 phi2)))))) (.f64 lambda2 (+.f64 (.f64 (.f64 #s(literal 1/4 binary64) (-.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 2 binary64) lambda1)))) (neg.f64 (+.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (+.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) (cos.f64 lambda1)) #s(literal 2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) lambda1))))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda1))) (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 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) lambda1))))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda1))) (cos.f64 (-.f64 phi1 phi2))))))) (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (/.f64 (.f64 #s(literal 2/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 2 binary64) lambda1))))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda1))) (+.f64 (/.f64 (.f64 (sin.f64 lambda1) (-.f64 (+.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 2 binary64) lambda1)))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda1))) (.f64 #s(literal 1/2 binary64) (/.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 #s(literal 2 binary64) lambda1))))) (cos.f64 lambda1)) (pow.f64 (+.f64 #s(literal 1 binary64) (cos.f64 lambda1)) #s(literal 2 binary64))))) (/.f64 (.f64 (sin.f64 lambda1) (-.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 2 binary64) lambda1)))) (neg.f64 (+.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (+.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) (cos.f64 lambda1)) #s(literal 2 binary64))))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda1))))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda1))) (+.f64 (/.f64 (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (+.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) (cos.f64 lambda1)) #s(literal 2 binary64))) (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (-.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 2 binary64) lambda1)))) (neg.f64 (+.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (+.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) (cos.f64 lambda1)) #s(literal 2 binary64)))))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda1))))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (-.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 2 binary64) lambda1)))) (neg.f64 (+.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (+.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) (cos.f64 lambda1)) #s(literal 2 binary64)))) (+.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 2 binary64) lambda1)))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda1))) (.f64 #s(literal 1/2 binary64) (/.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 #s(literal 2 binary64) lambda1))))) (cos.f64 lambda1)) (pow.f64 (+.f64 #s(literal 1 binary64) (cos.f64 lambda1)) #s(literal 2 binary64))))) (/.f64 (.f64 (sin.f64 lambda1) (-.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 2 binary64) lambda1)))) (neg.f64 (+.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (+.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) (cos.f64 lambda1)) #s(literal 2 binary64))))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda1))))) (.f64 (/.f64 (pow.f64 (-.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 2 binary64) lambda1)))) (neg.f64 (+.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (+.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) (cos.f64 lambda1)) #s(literal 2 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) lambda1))))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda1))) (cos.f64 (-.f64 phi1 phi2)))))) #s(literal -1/16 binary64)))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) lambda1))))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda1))) (cos.f64 (-.f64 phi1 phi2))))))))) (+.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 2 binary64) lambda1)))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda1))) (.f64 #s(literal 1/2 binary64) (/.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 #s(literal 2 binary64) lambda1))))) (cos.f64 lambda1)) (pow.f64 (+.f64 #s(literal 1 binary64) (cos.f64 lambda1)) #s(literal 2 binary64))))) (/.f64 (.f64 (sin.f64 lambda1) (-.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 2 binary64) lambda1)))) (neg.f64 (+.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (+.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) (cos.f64 lambda1)) #s(literal 2 binary64))))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda1))))) (.f64 (/.f64 (pow.f64 (-.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 2 binary64) lambda1)))) (neg.f64 (+.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (+.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) (cos.f64 lambda1)) #s(literal 2 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) lambda1))))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda1))) (cos.f64 (-.f64 phi1 phi2)))))) #s(literal -1/16 binary64))))))))))
(sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (+ lambda1 (* -1 lambda2)))))))) (+ 1 (cos (+ lambda1 (* -1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (+ lambda1 (* -1 lambda2)))))))) (+ 1 (cos (+ lambda1 (* -1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (+ lambda1 (* -1 lambda2)))))))) (+ 1 (cos (+ lambda1 (* -1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2))))))
(sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (+ lambda1 (* -1 lambda2)))))))) (+ 1 (cos (+ lambda1 (* -1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2))))))
(- (+ 1/2 (* 1/2 (/ (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2)))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (/.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi2))))
(- (+ 1/2 (+ (* 1/2 (* phi1 (sin (neg phi2)))) (* 1/2 (/ (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2)))))) (+ 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (neg phi2))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (neg.f64 (.f64 phi1 (sin.f64 phi2))) (/.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 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (cos.f64 phi2))))
(- (+ 1/2 (+ (* 1/2 (/ (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2)))))) (+ 1 (cos (- lambda1 lambda2))))) (* phi1 (- (* phi1 (- (* -1/4 (/ (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2)))))) (+ 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 #s(literal 1/2 binary64) (.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 lambda2))))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (+.f64 (.f64 phi1 (+.f64 (.f64 phi1 (.f64 #s(literal -1/4 binary64) (-.f64 (/.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 lambda2)))))) (+.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/2 (* 1/2 (cos (* 2 (- lambda1 lambda2)))))) (+ 1 (cos (- lambda1 lambda2))))) (* phi1 (- (* phi1 (- (+ (* -1/4 (/ (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2)))))) (+ 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 #s(literal 1/2 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (+.f64 (.f64 phi1 (+.f64 (.f64 phi1 (+.f64 (.f64 (.f64 #s(literal -1/12 binary64) phi1) (-.f64 #s(literal 0 binary64) (sin.f64 phi2))) (.f64 #s(literal -1/4 binary64) (-.f64 (/.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 lambda2)))))) (+.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 phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi2 phi1)))))
(- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi2 phi1)))))
(- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi2 phi1)))))
(- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi2 phi1)))))
(- (+ 1/2 (* 1/2 (/ (* (cos phi1) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2)))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (/.f64 (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi1))))
(- (+ 1/2 (+ (* -1/2 (* phi2 (sin phi1))) (* 1/2 (/ (* (cos phi1) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2)))))) (+ 1 (cos (- lambda1 lambda2))))))) (* 1/2 (cos phi1)))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (.f64 phi2 #s(literal -1/2 binary64)) (sin.f64 phi1))) (.f64 #s(literal 1/2 binary64) (-.f64 (/.f64 (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi1))))
(- (+ 1/2 (+ (* 1/2 (/ (* (cos phi1) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2)))))) (+ 1 (cos (- lambda1 lambda2))))) (* phi2 (- (* phi2 (- (* -1/4 (/ (* (cos phi1) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2)))))) (+ 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 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (+.f64 (.f64 phi2 (+.f64 (.f64 phi2 (.f64 #s(literal -1/4 binary64) (-.f64 (/.f64 (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.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/2 (* 1/2 (cos (* 2 (- lambda1 lambda2)))))) (+ 1 (cos (- lambda1 lambda2))))) (* phi2 (- (* phi2 (- (+ (* -1/4 (/ (* (cos phi1) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2)))))) (+ 1 (cos (- lambda1 lambda2))))) (* 1/12 (* phi2 (sin phi1)))) (* -1/4 (cos phi1)))) (* 1/2 (sin phi1)))))) (* 1/2 (cos phi1)))
(+.f64 (+.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 phi2 (+.f64 (.f64 phi2 (+.f64 (.f64 (.f64 #s(literal 1/12 binary64) phi2) (sin.f64 phi1)) (.f64 #s(literal -1/4 binary64) (-.f64 (/.f64 (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi1))))) (.f64 #s(literal -1/2 binary64) (sin.f64 phi1))))) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) #s(literal -1/2 binary64))))
(- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -2 lambda2)))))) (+ 1 (cos (neg lambda2)))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 lambda2 #s(literal -2 binary64)))))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (+ (* 1/2 (* lambda1 (- (/ (* (cos phi1) (* (cos phi2) (sin (* -2 lambda2)))) (+ 1 (cos (neg lambda2)))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- 1/2 (* 1/2 (cos (* -2 lambda2))))))) (pow (+ 1 (cos (neg lambda2))) 2)))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -2 lambda2)))))) (+ 1 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (.f64 lambda1 (+.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -2 binary64))))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal -2 binary64))))))) (pow.f64 (+.f64 #s(literal 1 binary64) (cos.f64 lambda2)) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal -2 binary64)))))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (+ (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -2 lambda2)))))) (+ 1 (cos (neg lambda2))))) (* lambda1 (+ (* 1/2 (* lambda1 (- (/ (* (cos phi1) (* (cos phi2) (cos (* -2 lambda2)))) (+ 1 (cos (neg lambda2)))) (+ (* -1 (/ (* (sin (neg lambda2)) (- (/ (* (cos phi1) (* (cos phi2) (sin (* -2 lambda2)))) (+ 1 (cos (neg lambda2)))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- 1/2 (* 1/2 (cos (* -2 lambda2))))))) (pow (+ 1 (cos (neg lambda2))) 2))))) (+ 1 (cos (neg lambda2))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (- 1/2 (* 1/2 (cos (* -2 lambda2))))))) (pow (+ 1 (cos (neg lambda2))) 2))))))) (* 1/2 (- (/ (* (cos phi1) (* (cos phi2) (sin (* -2 lambda2)))) (+ 1 (cos (neg lambda2)))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- 1/2 (* 1/2 (cos (* -2 lambda2))))))) (pow (+ 1 (cos (neg lambda2))) 2))))))))) (* 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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal -2 binary64))))))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (+.f64 (.f64 lambda1 (.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -2 binary64))))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal -2 binary64))))))) (pow.f64 (+.f64 #s(literal 1 binary64) (cos.f64 lambda2)) #s(literal 2 binary64)))) (.f64 lambda1 (-.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 lambda2 #s(literal -2 binary64))))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (-.f64 (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal -2 binary64)))))))) (pow.f64 (+.f64 #s(literal 1 binary64) (cos.f64 lambda2)) #s(literal 2 binary64))) (neg.f64 (.f64 (sin.f64 lambda2) (/.f64 (+.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -2 binary64))))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal -2 binary64))))))) (pow.f64 (+.f64 #s(literal 1 binary64) (cos.f64 lambda2)) #s(literal 2 binary64)))) (+.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/2 (* 1/2 (cos (* -2 lambda2)))))) (+ 1 (cos (neg lambda2))))) (* lambda1 (+ (* 1/2 (- (/ (* (cos phi1) (* (cos phi2) (sin (* -2 lambda2)))) (+ 1 (cos (neg lambda2)))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- 1/2 (* 1/2 (cos (* -2 lambda2))))))) (pow (+ 1 (cos (neg lambda2))) 2))))) (* lambda1 (+ (* 1/2 (* lambda1 (- (* -2/3 (/ (* (cos phi1) (* (cos phi2) (sin (* -2 lambda2)))) (+ 1 (cos (neg lambda2))))) (+ (* -1 (/ (* (sin (neg lambda2)) (- (/ (* (cos phi1) (* (cos phi2) (cos (* -2 lambda2)))) (+ 1 (cos (neg lambda2)))) (+ (* -1 (/ (* (sin (neg lambda2)) (- (/ (* (cos phi1) (* (cos phi2) (sin (* -2 lambda2)))) (+ 1 (cos (neg lambda2)))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- 1/2 (* 1/2 (cos (* -2 lambda2))))))) (pow (+ 1 (cos (neg lambda2))) 2))))) (+ 1 (cos (neg lambda2))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (- 1/2 (* 1/2 (cos (* -2 lambda2))))))) (pow (+ 1 (cos (neg lambda2))) 2)))))) (+ 1 (cos (neg lambda2))))) (+ (* -1/2 (/ (* (cos (neg lambda2)) (- (/ (* (cos phi1) (* (cos phi2) (sin (* -2 lambda2)))) (+ 1 (cos (neg lambda2)))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- 1/2 (* 1/2 (cos (* -2 lambda2))))))) (pow (+ 1 (cos (neg lambda2))) 2))))) (+ 1 (cos (neg lambda2))))) (* 1/6 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- 1/2 (* 1/2 (cos (* -2 lambda2))))))) (pow (+ 1 (cos (neg lambda2))) 2)))))))) (* 1/2 (- (/ (* (cos phi1) (* (cos phi2) (cos (* -2 lambda2)))) (+ 1 (cos (neg lambda2)))) (+ (* -1 (/ (* (sin (neg lambda2)) (- (/ (* (cos phi1) (* (cos phi2) (sin (* -2 lambda2)))) (+ 1 (cos (neg lambda2)))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- 1/2 (* 1/2 (cos (* -2 lambda2))))))) (pow (+ 1 (cos (neg lambda2))) 2))))) (+ 1 (cos (neg lambda2))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (- 1/2 (* 1/2 (cos (* -2 lambda2))))))) (pow (+ 1 (cos (neg lambda2))) 2)))))))))))) (* 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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal -2 binary64))))))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda2)))) (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -2 binary64))))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal -2 binary64))))))) (pow.f64 (+.f64 #s(literal 1 binary64) (cos.f64 lambda2)) #s(literal 2 binary64))))) (.f64 lambda1 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 lambda1 (-.f64 (/.f64 (.f64 #s(literal -2/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -2 binary64)))))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (-.f64 (+.f64 (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (+.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -2 binary64))))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal -2 binary64))))))) (pow.f64 (+.f64 #s(literal 1 binary64) (cos.f64 lambda2)) #s(literal 2 binary64)))))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (/.f64 (.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal -2 binary64)))))))) (pow.f64 (+.f64 #s(literal 1 binary64) (cos.f64 lambda2)) #s(literal 2 binary64)))) (neg.f64 (.f64 (sin.f64 lambda2) (/.f64 (-.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 lambda2 #s(literal -2 binary64))))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (-.f64 (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal -2 binary64)))))))) (pow.f64 (+.f64 #s(literal 1 binary64) (cos.f64 lambda2)) #s(literal 2 binary64))) (neg.f64 (.f64 (sin.f64 lambda2) (/.f64 (+.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -2 binary64))))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal -2 binary64))))))) (pow.f64 (+.f64 #s(literal 1 binary64) (cos.f64 lambda2)) #s(literal 2 binary64)))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda2))))))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda2)))))))) (-.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 lambda2 #s(literal -2 binary64))))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (-.f64 (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (cos.f64 lambda2)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal -2 binary64)))))))) (pow.f64 (+.f64 #s(literal 1 binary64) (cos.f64 lambda2)) #s(literal 2 binary64))) (neg.f64 (.f64 (sin.f64 lambda2) (/.f64 (+.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 lambda2 #s(literal -2 binary64))))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda2))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal -2 binary64))))))) (pow.f64 (+.f64 #s(literal 1 binary64) (cos.f64 lambda2)) #s(literal 2 binary64)))) (+.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/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -2 (+ lambda2 (* -1 lambda1)))))))) (+ 1 (cos (neg (+ lambda2 (* -1 lambda1)))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 (-.f64 lambda2 lambda1) #s(literal -2 binary64)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -2 (+ lambda2 (* -1 lambda1)))))))) (+ 1 (cos (neg (+ lambda2 (* -1 lambda1)))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 (-.f64 lambda2 lambda1) #s(literal -2 binary64)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -2 (+ lambda2 (* -1 lambda1)))))))) (+ 1 (cos (neg (+ lambda2 (* -1 lambda1)))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 (-.f64 lambda2 lambda1) #s(literal -2 binary64)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -2 (+ lambda2 (* -1 lambda1)))))))) (+ 1 (cos (neg (+ lambda2 (* -1 lambda1)))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 (-.f64 lambda2 lambda1) #s(literal -2 binary64)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 lambda1)))))) (+ 1 (cos lambda1))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) lambda1))))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda1))) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (+ (* 1/2 (* lambda2 (- (* -1 (/ (* (cos phi1) (* (cos phi2) (sin (* 2 lambda1)))) (+ 1 (cos lambda1)))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- 1/2 (* 1/2 (cos (* 2 lambda1))))))) (pow (+ 1 (cos lambda1)) 2))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 lambda1)))))) (+ 1 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (.f64 lambda2 (-.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 2 binary64) lambda1)))) (neg.f64 (+.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (+.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) (cos.f64 lambda1)) #s(literal 2 binary64))))) (/.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) lambda1))))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (+ (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 lambda1)))))) (+ 1 (cos lambda1)))) (* lambda2 (+ (* 1/2 (* lambda2 (- (/ (* (cos phi1) (* (cos phi2) (cos (* 2 lambda1)))) (+ 1 (cos lambda1))) (+ (* -1/2 (/ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 lambda1))))))) (pow (+ 1 (cos lambda1)) 2))) (/ (* (sin lambda1) (- (* -1 (/ (* (cos phi1) (* (cos phi2) (sin (* 2 lambda1)))) (+ 1 (cos lambda1)))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- 1/2 (* 1/2 (cos (* 2 lambda1))))))) (pow (+ 1 (cos lambda1)) 2)))) (+ 1 (cos lambda1))))))) (* 1/2 (- (* -1 (/ (* (cos phi1) (* (cos phi2) (sin (* 2 lambda1)))) (+ 1 (cos lambda1)))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- 1/2 (* 1/2 (cos (* 2 lambda1))))))) (pow (+ 1 (cos lambda1)) 2)))))))) (* 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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) lambda1)))))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (+.f64 (.f64 lambda2 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 lambda2 (-.f64 (+.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 2 binary64) lambda1)))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda1))) (.f64 #s(literal 1/2 binary64) (/.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 #s(literal 2 binary64) lambda1))))) (cos.f64 lambda1)) (pow.f64 (+.f64 #s(literal 1 binary64) (cos.f64 lambda1)) #s(literal 2 binary64))))) (/.f64 (.f64 (sin.f64 lambda1) (-.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 2 binary64) lambda1)))) (neg.f64 (+.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (+.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) (cos.f64 lambda1)) #s(literal 2 binary64))))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda1))))) (-.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 2 binary64) lambda1)))) (neg.f64 (+.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (+.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) (cos.f64 lambda1)) #s(literal 2 binary64))))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (+ (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 lambda1)))))) (+ 1 (cos lambda1)))) (* lambda2 (+ (* 1/2 (- (* -1 (/ (* (cos phi1) (* (cos phi2) (sin (* 2 lambda1)))) (+ 1 (cos lambda1)))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- 1/2 (* 1/2 (cos (* 2 lambda1))))))) (pow (+ 1 (cos lambda1)) 2)))) (* lambda2 (+ (* 1/2 (* lambda2 (- (* 2/3 (/ (* (cos phi1) (* (cos phi2) (sin (* 2 lambda1)))) (+ 1 (cos lambda1)))) (+ (* -1/2 (/ (* (cos lambda1) (- (* -1 (/ (* (cos phi1) (* (cos phi2) (sin (* 2 lambda1)))) (+ 1 (cos lambda1)))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- 1/2 (* 1/2 (cos (* 2 lambda1))))))) (pow (+ 1 (cos lambda1)) 2)))) (+ 1 (cos lambda1)))) (+ (* -1/6 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- 1/2 (* 1/2 (cos (* 2 lambda1))))))) (pow (+ 1 (cos lambda1)) 2))) (/ (* (sin lambda1) (- (/ (* (cos phi1) (* (cos phi2) (cos (* 2 lambda1)))) (+ 1 (cos lambda1))) (+ (* -1/2 (/ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 lambda1))))))) (pow (+ 1 (cos lambda1)) 2))) (/ (* (sin lambda1) (- (* -1 (/ (* (cos phi1) (* (cos phi2) (sin (* 2 lambda1)))) (+ 1 (cos lambda1)))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- 1/2 (* 1/2 (cos (* 2 lambda1))))))) (pow (+ 1 (cos lambda1)) 2)))) (+ 1 (cos lambda1)))))) (+ 1 (cos lambda1)))))))) (* 1/2 (- (/ (* (cos phi1) (* (cos phi2) (cos (* 2 lambda1)))) (+ 1 (cos lambda1))) (+ (* -1/2 (/ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 lambda1))))))) (pow (+ 1 (cos lambda1)) 2))) (/ (* (sin lambda1) (- (* -1 (/ (* (cos phi1) (* (cos phi2) (sin (* 2 lambda1)))) (+ 1 (cos lambda1)))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- 1/2 (* 1/2 (cos (* 2 lambda1))))))) (pow (+ 1 (cos lambda1)) 2)))) (+ 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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) lambda1)))))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 2 binary64) lambda1)))) (neg.f64 (+.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (+.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) (cos.f64 lambda1)) #s(literal 2 binary64))))) (.f64 lambda2 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 lambda2 (-.f64 (/.f64 (.f64 #s(literal 2/3 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 2 binary64) lambda1))))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda1))) (+.f64 (/.f64 (.f64 (sin.f64 lambda1) (-.f64 (+.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 2 binary64) lambda1)))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda1))) (.f64 #s(literal 1/2 binary64) (/.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 #s(literal 2 binary64) lambda1))))) (cos.f64 lambda1)) (pow.f64 (+.f64 #s(literal 1 binary64) (cos.f64 lambda1)) #s(literal 2 binary64))))) (/.f64 (.f64 (sin.f64 lambda1) (-.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 2 binary64) lambda1)))) (neg.f64 (+.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (+.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) (cos.f64 lambda1)) #s(literal 2 binary64))))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda1))))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda1))) (+.f64 (/.f64 (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (+.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) (cos.f64 lambda1)) #s(literal 2 binary64))) (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (-.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 2 binary64) lambda1)))) (neg.f64 (+.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (+.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) (cos.f64 lambda1)) #s(literal 2 binary64)))))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda1))))))) (-.f64 (+.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 2 binary64) lambda1)))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda1))) (.f64 #s(literal 1/2 binary64) (/.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 #s(literal 2 binary64) lambda1))))) (cos.f64 lambda1)) (pow.f64 (+.f64 #s(literal 1 binary64) (cos.f64 lambda1)) #s(literal 2 binary64))))) (/.f64 (.f64 (sin.f64 lambda1) (-.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 2 binary64) lambda1)))) (neg.f64 (+.f64 #s(literal 1 binary64) (cos.f64 lambda1)))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (+.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) (cos.f64 lambda1)) #s(literal 2 binary64))))) (+.f64 #s(literal 1 binary64) (cos.f64 lambda1))))))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (+ lambda1 (* -1 lambda2)))))))) (+ 1 (cos (+ lambda1 (* -1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (+ lambda1 (* -1 lambda2)))))))) (+ 1 (cos (+ lambda1 (* -1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (+ lambda1 (* -1 lambda2)))))))) (+ 1 (cos (+ lambda1 (* -1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))
(- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (+ lambda1 (* -1 lambda2)))))))) (+ 1 (cos (+ lambda1 (* -1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (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 lambda2)) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 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 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 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 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 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 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 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 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 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 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 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 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 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 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 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)) 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 lambda2 lambda1))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 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)) 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 lambda2 lambda1))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 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)) 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 lambda2 lambda1))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 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)) 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 lambda2 lambda1))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 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 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 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 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 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 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 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 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 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 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 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 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 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 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 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 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 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 lambda2)) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 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 lambda2)) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 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 lambda2)) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 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 lambda2)) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 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 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 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 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 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 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 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 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 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 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 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 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 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 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 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 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 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 lambda2)) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 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 lambda2)) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 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 lambda2)) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 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 lambda2)) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 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 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 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 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 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 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 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 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 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 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 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 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 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 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 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 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 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 lambda2)) 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (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) (pow (sin (* -1/2 lambda2)) 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (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) (pow (sin (* -1/2 lambda2)) 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (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) (pow (sin (* -1/2 lambda2)) 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (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) (pow (sin (* -1/2 lambda2)) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 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 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 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 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 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 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 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 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 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 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 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 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 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 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 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 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 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 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 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 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 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 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 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)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 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)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 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)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 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)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 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)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 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)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 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)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 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)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(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)) 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 lambda2 lambda1))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(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)) 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 lambda2 lambda1))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(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)) 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 lambda2 lambda1))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(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)) 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 lambda2 lambda1))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 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)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 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)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 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)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 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)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 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)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 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)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 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)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 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)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(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 lambda2)) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(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 lambda2)) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(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 lambda2)) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(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 lambda2)) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 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)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 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)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 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)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 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)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 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)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 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)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 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)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 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)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(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 lambda2)) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(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 lambda2)) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(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 lambda2)) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(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 lambda2)) 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 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 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)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 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)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 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)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 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)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 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)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 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)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 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)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 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)))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
(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 lambda2)) 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (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) (pow (sin (* -1/2 lambda2)) 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (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) (pow (sin (* -1/2 lambda2)) 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (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) (pow (sin (* -1/2 lambda2)) 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #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 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 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(+ (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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (.f64 (cos.f64 phi2) (cos.f64 (.f64 lambda2 #s(literal -1/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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(+ (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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 lambda1 (.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (+.f64 (.f64 lambda1 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (.f64 #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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 lambda2 #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 (* (* (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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (cos.f64 (.f64 lambda2 #s(literal -1/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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 lambda1 (.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (+.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 lambda1 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal -1/6 binary64))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))))))))
(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 (.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))) (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* -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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 lambda2 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (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 #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 #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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 lambda2 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 lambda2 (.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (+.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (.f64 #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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 lambda2 (+.f64 (.f64 (.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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 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))))
(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 (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 #s(literal 1/2 binary64) (.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 (pow.f64 (sin.f64 (.f64 phi1 #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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))))))))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (* 1/2 (* (* phi2 (- (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (* -1/2 (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))))))
(+.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (.f64 phi2 (+.f64 (.f64 (.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 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (+.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 phi1 #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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (.f64 phi2 (+.f64 (.f64 (.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 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (sin.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 (pow.f64 (sin.f64 (.f64 phi1 #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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 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 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 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (+.f64 (.f64 phi1 (+.f64 (.f64 (.f64 (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 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (.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 (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 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))) #s(literal -1/6 binary64)) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))) (+.f64 (.f64 (.f64 (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 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 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))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* 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 (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 lambda1 (cos.f64 phi1)) (.f64 (.f64 (cos.f64 phi2) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (sin.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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (.f64 lambda1 (+.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (.f64 lambda1 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))))))
(+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+.f64 (.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 lambda1 (+.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (.f64 lambda1 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (.f64 lambda1 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal -1/6 binary64))))))))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (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 (.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))) (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(+ (* -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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (.f64 lambda2 (.f64 (.f64 (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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (.f64 lambda2 (-.f64 (.f64 lambda2 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (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 (+ (* 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (.f64 lambda2 (-.f64 (.f64 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 (.f64 (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)))))))
(+ (* (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)))
(+ (* (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 (pow.f64 (sin.f64 (.f64 phi1 #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 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 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (+.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 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 phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))
(+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))
(+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (+.f64 (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))
(+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(+.f64 (+.f64 (.f64 (cos.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 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))))))
(+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 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 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (+.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (.f64 phi1 (.f64 (.f64 (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)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (+ 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) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 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 (- (* (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 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 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 (- (* (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 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 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 (- (* (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 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (* -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) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (* -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) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (* -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) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (* -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) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.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)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 (- (* (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 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 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 (- (* (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 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 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 (- (* (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 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 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 (- (* (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 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 (- (* (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 (* -1 lambda2)))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 (- (* (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 (* -1 lambda2)))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 (- (* (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 (* -1 lambda2)))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 (- (* (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 (* -1 lambda2)))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 (- (* (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.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))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.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))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.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))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2))) 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.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 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* 1/2 (* (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (.f64 (cos.f64 phi2) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (.f64 lambda1 (.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) (+.f64 (.f64 lambda1 (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (.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 (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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda1 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))) (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (* (sin (* -1/2 lambda2)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))) (.f64 lambda1 (.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) (+.f64 (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (.f64 #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 (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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) (.f64 lambda1 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal -1/6 binary64))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (.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 (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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))))) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* -1/2 (* (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 lambda2 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (.f64 lambda2 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (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 #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 #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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (* (sin (* 1/2 lambda1)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (.f64 lambda2 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (.f64 lambda2 (.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))) (+.f64 (+.f64 (.f64 (.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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (.f64 lambda2 (+.f64 (.f64 (.f64 (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 (cos.f64 phi1) (.f64 (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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))))) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(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 (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 #s(literal 1/2 binary64) (.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 (pow.f64 (sin.f64 (.f64 phi1 #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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))))))))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (* 1/2 (* (* phi2 (- (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (* -1/2 (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))))))
(+.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (.f64 phi2 (+.f64 (.f64 (.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 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (+.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (-.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 phi1 #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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (.f64 phi2 (+.f64 (.f64 (.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 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (sin.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 (pow.f64 (sin.f64 (.f64 phi1 #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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))) (* -1/2 (* (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))))
(+.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))) (* phi1 (+ (* -1/2 (* (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (* 1/2 (* (* phi1 (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))))))
(+.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (.f64 phi1 (.f64 (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 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) (.f64 #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 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))) (* phi1 (+ (* -1/2 (* (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))))))) (* 1/2 (* (* phi1 (- (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (* -1/2 (/ (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))))))))
(+.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (.f64 phi1 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (.f64 phi1 (.f64 #s(literal 1/2 binary64) (.f64 (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 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (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 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (+.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 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))
(+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (.f64 (cos.f64 phi2) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))))
(+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(+.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (.f64 lambda1 (+.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (.f64 lambda1 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))))))
(+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(+.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (.f64 lambda1 (+.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))))) (.f64 lambda1 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (.f64 lambda1 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal -1/6 binary64)))))))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))
(+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(-.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (.f64 lambda2 (.f64 (.f64 (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 (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(+.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (.f64 lambda2 (-.f64 (.f64 lambda2 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))) (.f64 (.f64 (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 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(+.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (.f64 lambda2 (-.f64 (.f64 lambda2 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (.f64 lambda2 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 1/6 binary64)))))) (.f64 (.f64 (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)))))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (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 (pow.f64 (sin.f64 (.f64 phi1 #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 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 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (+.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 phi2 (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64))))))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))
(+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* -1 (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(-.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 phi1 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))
(+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(+.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 phi1 (-.f64 (.f64 phi1 (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (+.f64 (.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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))))
(+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi2)) 2)) (* phi1 (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))))))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(+.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 phi1 (-.f64 (.f64 phi1 (+.f64 (.f64 (.f64 (cos.f64 phi2) #s(literal -1/2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (+.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (+.f64 (.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 #s(literal -1/4 binary64) (pow.f64 (sin.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)))))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
1
#s(literal 1 binary64)
(+ 1 (* -1/2 (pow phi1 2)))
(+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1)))
(+ 1 (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2)))
(+.f64 #s(literal 1 binary64) (.f64 (.f64 phi1 phi1) (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal -1/2 binary64))))
(+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2)))
(+.f64 #s(literal 1 binary64) (.f64 (.f64 phi1 phi1) (+.f64 (.f64 (.f64 phi1 phi1) (+.f64 #s(literal 1/24 binary64) (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)))) #s(literal -1/2 binary64))))
(cos phi1)
(cos.f64 phi1)
(cos phi1)
(cos.f64 phi1)
(cos phi1)
(cos.f64 phi1)
(cos phi1)
(cos.f64 phi1)
(cos phi1)
(cos.f64 phi1)
(cos phi1)
(cos.f64 phi1)
(cos phi1)
(cos.f64 phi1)
(cos phi1)
(cos.f64 phi1)
1
#s(literal 1 binary64)
(+ 1 (* -1/2 (pow phi2 2)))
(+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2)))
(+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2)))
(+.f64 #s(literal 1 binary64) (.f64 (.f64 phi2 phi2) (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi2 phi2)) #s(literal -1/2 binary64))))
(+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2)))
(+.f64 #s(literal 1 binary64) (.f64 (.f64 phi2 phi2) (+.f64 (.f64 (.f64 phi2 phi2) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (.f64 phi2 phi2)))) #s(literal -1/2 binary64))))
(cos phi2)
(cos.f64 phi2)
(cos phi2)
(cos.f64 phi2)
(cos phi2)
(cos.f64 phi2)
(cos phi2)
(cos.f64 phi2)
(cos phi2)
(cos.f64 phi2)
(cos phi2)
(cos.f64 phi2)
(cos phi2)
(cos.f64 phi2)
(cos phi2)
(cos.f64 phi2)
1
#s(literal 1 binary64)
(+ 1 (* -1/8 (pow phi1 2)))
(+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/8 binary64) (.f64 phi1 phi1)))
(+ 1 (* (pow phi1 2) (- (* 1/384 (pow phi1 2)) 1/8)))
(+.f64 #s(literal 1 binary64) (.f64 (.f64 phi1 phi1) (+.f64 (.f64 (.f64 phi1 phi1) #s(literal 1/384 binary64)) #s(literal -1/8 binary64))))
(+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/384 (* -1/46080 (pow phi1 2)))) 1/8)))
(+.f64 #s(literal 1 binary64) (.f64 (.f64 phi1 phi1) (+.f64 (.f64 (.f64 phi1 phi1) (+.f64 #s(literal 1/384 binary64) (.f64 (.f64 phi1 phi1) #s(literal -1/46080 binary64)))) #s(literal -1/8 binary64))))
(cos (* 1/2 phi1))
(cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(cos (* 1/2 phi1))
(cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(cos (* 1/2 phi1))
(cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(cos (* 1/2 phi1))
(cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(cos (* 1/2 phi1))
(cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(cos (* 1/2 phi1))
(cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(cos (* 1/2 phi1))
(cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(cos (* 1/2 phi1))
(cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
1
#s(literal 1 binary64)
(+ 1 (* -1/8 (pow phi2 2)))
(+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/8 binary64) (.f64 phi2 phi2)))
(+ 1 (* (pow phi2 2) (- (* 1/384 (pow phi2 2)) 1/8)))
(+.f64 #s(literal 1 binary64) (.f64 (.f64 phi2 phi2) (+.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/384 binary64)) #s(literal -1/8 binary64))))
(+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/384 (* -1/46080 (pow phi2 2)))) 1/8)))
(+.f64 #s(literal 1 binary64) (.f64 (.f64 phi2 phi2) (+.f64 (.f64 (.f64 phi2 phi2) (+.f64 #s(literal 1/384 binary64) (.f64 (.f64 phi2 phi2) #s(literal -1/46080 binary64)))) #s(literal -1/8 binary64))))
(cos (* 1/2 phi2))
(cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))
(cos (* 1/2 phi2))
(cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))
(cos (* 1/2 phi2))
(cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))
(cos (* 1/2 phi2))
(cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))
(cos (* 1/2 phi2))
(cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))
(cos (* 1/2 phi2))
(cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))
(cos (* 1/2 phi2))
(cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))
(cos (* 1/2 phi2))
(cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))
1
#s(literal 1 binary64)
(+ 1 (* -1/8 (pow phi1 2)))
(+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/8 binary64) (.f64 phi1 phi1)))
(+ 1 (* (pow phi1 2) (- (* 1/384 (pow phi1 2)) 1/8)))
(+.f64 #s(literal 1 binary64) (.f64 (.f64 phi1 phi1) (+.f64 (.f64 (.f64 phi1 phi1) #s(literal 1/384 binary64)) #s(literal -1/8 binary64))))
(+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/384 (* -1/46080 (pow phi1 2)))) 1/8)))
(+.f64 #s(literal 1 binary64) (.f64 (.f64 phi1 phi1) (+.f64 (.f64 (.f64 phi1 phi1) (+.f64 #s(literal 1/384 binary64) (.f64 (.f64 phi1 phi1) #s(literal -1/46080 binary64)))) #s(literal -1/8 binary64))))
(cos (* 1/2 phi1))
(cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(cos (* 1/2 phi1))
(cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(cos (* 1/2 phi1))
(cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(cos (* 1/2 phi1))
(cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(cos (* 1/2 phi1))
(cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(cos (* 1/2 phi1))
(cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(cos (* 1/2 phi1))
(cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(cos (* 1/2 phi1))
(cos.f64 (*.f64 phi1 #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 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal -1/8 binary64)) (.f64 (.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* 1/2 lambda1))
(sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))
(+ (sin (* 1/2 lambda1)) (* -1/2 (* lambda2 (cos (* 1/2 lambda1)))))
(+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (.f64 lambda2 #s(literal -1/2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* -1/8 (* lambda2 (sin (* 1/2 lambda1)))))))
(+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (.f64 #s(literal -1/8 binary64) lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* 1/2 lambda1))) (* 1/48 (* lambda2 (cos (* 1/2 lambda1)))))))))
(+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (.f64 #s(literal 1/48 binary64) lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(cos (* -2 lambda2))
(cos.f64 (*.f64 lambda2 #s(literal -2 binary64)))
(+ (cos (* -2 lambda2)) (* -2 (* lambda1 (sin (* -2 lambda2)))))
(+.f64 (cos.f64 (.f64 lambda2 #s(literal -2 binary64))) (.f64 (.f64 #s(literal -2 binary64) lambda1) (sin.f64 (.f64 lambda2 #s(literal -2 binary64)))))
(+ (cos (* -2 lambda2)) (* lambda1 (- (* -2 (* lambda1 (cos (* -2 lambda2)))) (* 2 (sin (* -2 lambda2))))))
(+.f64 (cos.f64 (.f64 lambda2 #s(literal -2 binary64))) (.f64 lambda1 (.f64 #s(literal -2 binary64) (+.f64 (.f64 lambda1 (cos.f64 (.f64 lambda2 #s(literal -2 binary64)))) (sin.f64 (.f64 lambda2 #s(literal -2 binary64)))))))
(+ (cos (* -2 lambda2)) (* lambda1 (- (* lambda1 (+ (* -2 (cos (* -2 lambda2))) (* 4/3 (* lambda1 (sin (* -2 lambda2)))))) (* 2 (sin (* -2 lambda2))))))
(+.f64 (cos.f64 (.f64 lambda2 #s(literal -2 binary64))) (.f64 lambda1 (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -2 binary64) (cos.f64 (.f64 lambda2 #s(literal -2 binary64)))) (.f64 (.f64 #s(literal 4/3 binary64) lambda1) (sin.f64 (.f64 lambda2 #s(literal -2 binary64)))))) (.f64 #s(literal -2 binary64) (sin.f64 (.f64 lambda2 #s(literal -2 binary64)))))))
(cos (* 2 (- lambda1 lambda2)))
(cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))
(cos (* 2 (- lambda1 lambda2)))
(cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))
(cos (* 2 (- lambda1 lambda2)))
(cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))
(cos (* 2 (- lambda1 lambda2)))
(cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))
(cos (* -2 (+ lambda2 (* -1 lambda1))))
(cos.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -2 binary64)))
(cos (* -2 (+ lambda2 (* -1 lambda1))))
(cos.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -2 binary64)))
(cos (* -2 (+ lambda2 (* -1 lambda1))))
(cos.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -2 binary64)))
(cos (* -2 (+ lambda2 (* -1 lambda1))))
(cos.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -2 binary64)))
(cos (* 2 lambda1))
(cos.f64 (*.f64 #s(literal 2 binary64) lambda1))
(+ (cos (* 2 lambda1)) (* 2 (* lambda2 (sin (* 2 lambda1)))))
(+.f64 (cos.f64 (.f64 #s(literal 2 binary64) lambda1)) (.f64 (.f64 #s(literal 2 binary64) lambda2) (sin.f64 (.f64 #s(literal 2 binary64) lambda1))))
(+ (cos (* 2 lambda1)) (* lambda2 (- (* -2 (* lambda2 (cos (* 2 lambda1)))) (* -2 (sin (* 2 lambda1))))))
(+.f64 (cos.f64 (.f64 #s(literal 2 binary64) lambda1)) (.f64 lambda2 (.f64 #s(literal -2 binary64) (-.f64 (.f64 lambda2 (cos.f64 (.f64 #s(literal 2 binary64) lambda1))) (sin.f64 (.f64 #s(literal 2 binary64) lambda1))))))
(+ (cos (* 2 lambda1)) (* lambda2 (- (* lambda2 (+ (* -2 (cos (* 2 lambda1))) (* -4/3 (* lambda2 (sin (* 2 lambda1)))))) (* -2 (sin (* 2 lambda1))))))
(+.f64 (cos.f64 (.f64 #s(literal 2 binary64) lambda1)) (.f64 lambda2 (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) lambda1))) (.f64 (.f64 #s(literal -4/3 binary64) lambda2) (sin.f64 (.f64 #s(literal 2 binary64) lambda1))))) (.f64 #s(literal 2 binary64) (sin.f64 (.f64 #s(literal 2 binary64) lambda1))))))
(cos (* 2 (- lambda1 lambda2)))
(cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))
(cos (* 2 (- lambda1 lambda2)))
(cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))
(cos (* 2 (- lambda1 lambda2)))
(cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))
(cos (* 2 (- lambda1 lambda2)))
(cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))
(cos (* 2 (+ lambda1 (* -1 lambda2))))
(cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))
(cos (* 2 (+ lambda1 (* -1 lambda2))))
(cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))
(cos (* 2 (+ lambda1 (* -1 lambda2))))
(cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))
(cos (* 2 (+ lambda1 (* -1 lambda2))))
(cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))
(cos (neg phi2))
(cos.f64 phi2)
(+ (cos (neg phi2)) (* -1 (* phi1 (sin (neg phi2)))))
(+.f64 (cos.f64 phi2) (*.f64 phi1 (sin.f64 phi2)))
(+ (cos (neg phi2)) (* phi1 (- (* -1/2 (* phi1 (cos (neg phi2)))) (sin (neg phi2)))))
(+.f64 (cos.f64 phi2) (.f64 phi1 (+.f64 (.f64 (*.f64 #s(literal -1/2 binary64) 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))
(sin (* -1/2 lambda2))
(sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))
(+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))
(+.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 (.f64 #s(literal 1/2 binary64) lambda1) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* -1/8 (* lambda1 (sin (* -1/2 lambda2)))) (* 1/2 (cos (* -1/2 lambda2))))))
(+.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal -1/8 binary64) lambda1) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))
(+.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) (.f64 lambda1 (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (.f64 lambda1 (+.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal -1/8 binary64)) (.f64 (.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))))))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1)))
(sin (* 1/2 lambda1))
(sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))
(+ (sin (* 1/2 lambda1)) (* -1/2 (* lambda2 (cos (* 1/2 lambda1)))))
(+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (.f64 lambda2 #s(literal -1/2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* -1/8 (* lambda2 (sin (* 1/2 lambda1)))))))
(+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (.f64 #s(literal -1/8 binary64) lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* 1/2 lambda1))) (* 1/48 (* lambda2 (cos (* 1/2 lambda1)))))))))
(+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (.f64 #s(literal 1/48 binary64) lambda2) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sin (* -1/2 phi2))
(sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))
(+ (sin (* -1/2 phi2)) (* 1/2 (* phi1 (cos (* -1/2 phi2)))))
(+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 (.f64 phi1 #s(literal 1/2 binary64)) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))
(+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2))))))
(+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (+.f64 (.f64 (.f64 #s(literal -1/8 binary64) phi1) (sin.f64 (.f64 phi2 #s(literal -1/2 binary64)))) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))
(+ (sin (* -1/2 phi2)) (* phi1 (+ (* 1/2 (cos (* -1/2 phi2))) (* phi1 (+ (* -1/8 (sin (* -1/2 phi2))) (* -1/48 (* phi1 (cos (* -1/2 phi2)))))))))
(+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))) (.f64 phi1 (+.f64 (.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 phi2 #s(literal -1/2 binary64)))) (.f64 (.f64 #s(literal -1/48 binary64) phi1) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))))))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1)))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1)))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1)))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 phi2 phi1)))
(sin (* 1/2 phi1))
(sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(+ (sin (* 1/2 phi1)) (* -1/2 (* phi2 (cos (* 1/2 phi1)))))
(+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (.f64 phi2 #s(literal -1/2 binary64)) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))))
(+ (sin (* 1/2 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* -1/8 (* phi2 (sin (* 1/2 phi1)))))))
(+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 (.f64 #s(literal -1/8 binary64) phi2) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))
(+ (sin (* 1/2 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 phi1)))))))))
(+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 phi2 (+.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/8 binary64)) (.f64 (.f64 #s(literal 1/48 binary64) phi2) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))))))))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))

eval504.0ms (1.1%)

Compiler: Compiled 167478 to 5065 computations (97% saved)

prune782.0ms (1.7%)

Pruning

158 alts after pruning (158 fresh and 0 done)

	Pruned	Kept	Total
New	2126	82	2208
Fresh	25	76	101
Picked	5	0	5
Done	0	0	0
Total	2156	158	2314

Accuracy

81.2%

Counts

2314 → 158

Alt Table

Click to see full alt table

Status	Accuracy	Program
	57.5%	(.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 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)))
	57.1%	(.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (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)))
	38.4%	(.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 #s(literal 1/4 binary64) (.f64 (.f64 lambda1 (.f64 (.f64 (cos.f64 phi1) (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.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	57.3%	(.f64 (atan2.f64 (.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/4 binary64)) (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/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)))
	57.3%	(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	57.4%	(.f64 (atan2.f64 (sqrt.f64 (/.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 6 binary64)) (pow.f64 (.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 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 phi2) (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (-.f64 (.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (+.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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	42.6%	(.f64 (atan2.f64 (sqrt.f64 (/.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))))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	57.6%	(.f64 (atan2.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (-.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 6 binary64)) (pow.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))) #s(literal 3 binary64)))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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.7%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	58.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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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.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.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 (-.f64 lambda1 lambda2) #s(literal -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.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 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)))
	47.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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	8.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 (.f64 #s(literal -1/2304 binary64) (pow.f64 phi2 #s(literal 6 binary64))) (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	43.2%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 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)))
	47.5%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	44.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 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	57.1%	(.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)))
	57.0%	(.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)))
	43.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) (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi2 phi2) (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi2 phi2)) #s(literal -1/2 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))))))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	57.3%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 #s(literal 1 binary64) (/.f64 (+.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)))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal -2 binary64))))))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	30.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) (cos.f64 (-.f64 lambda1 lambda2))) (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi2) (.f64 phi1 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) phi1) (cos.f64 phi2)) (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)))
▶	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) (/.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.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)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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.3%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.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 (.f64 (-.f64 lambda1 lambda2) #s(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.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 (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi2 phi2) (+.f64 (.f64 (.f64 phi2 phi2) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (.f64 phi2 phi2)))) #s(literal -1/2 binary64)))))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	49.2%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) #s(literal 1 binary64))) #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) (/.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 #s(literal 1 binary64) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	39.7%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 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)))
	45.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 (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 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)))
	57.3%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (/.f64 #s(literal 1 binary64) (+.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)))))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	57.1%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (/.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	57.2%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	57.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 (.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.3%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2))) (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)))
	57.0%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #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)))
	57.7%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	40.4%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #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 (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.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)))
	45.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 lambda1) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	38.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 (.f64 lambda1 (sin.f64 (-.f64 #s(literal 0 binary64) lambda2))) (cos.f64 lambda2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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.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) #s(literal 1 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))))))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	46.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 #s(literal 1 binary64) (cos.f64 phi2)) (/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	36.5%	(.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) (/.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	41.5%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (sin.f64 phi1)))) (.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	34.6%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.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)))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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.2%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.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)))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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.5%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.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)))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	34.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 phi2) (.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 (.f64 phi1 (+.f64 (sin.f64 #s(literal 0 binary64)) (sin.f64 (.f64 phi2 #s(literal -1 binary64))))) #s(literal 2 binary64)) (+.f64 (.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi2 #s(literal -1 binary64)))))))))) (*.f64 R #s(literal 2 binary64)))
▶	57.2%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) (.f64 (cos.f64 phi2) (.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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
▶	0.0%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal -1/2 binary64))) (.f64 (cos.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 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))) (.f64 R #s(literal 2 binary64)))
	42.6%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal -1/2 binary64))) (.f64 (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 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (*.f64 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 phi2))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	42.8%	(.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)))
	47.5%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (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) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	42.9%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.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))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (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) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	44.2%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.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 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	43.7%	(.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 (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi2 phi2) (+.f64 (.f64 (.f64 phi2 phi2) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (.f64 phi2 phi2)))) #s(literal -1/2 binary64)))) (cos.f64 phi1))) (pow.f64 (-.f64 (.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	58.5%	(.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 (/.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))) (-.f64 #s(literal 0 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 (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) (.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))) (-.f64 #s(literal 0 binary64) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	47.9%	(.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 (-.f64 (.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.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)))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	62.7%	(.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 (-.f64 (.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal -1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))) (.f64 R #s(literal 2 binary64)))
	43.3%	(.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 (-.f64 (.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi2 phi2) (+.f64 (.f64 (.f64 phi2 phi2) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (.f64 phi2 phi2)))) #s(literal -1/2 binary64)))) (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)))
	44.5%	(.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 (-.f64 (.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	79.4%	(.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 (-.f64 (.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	79.4%	(.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 (-.f64 (.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (/.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 #s(literal 0 binary64) (.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) (-.f64 #s(literal 0 binary64) (.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))))) (-.f64 (.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) (-.f64 #s(literal 0 binary64) (.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	75.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 (-.f64 (.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (/.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 #s(literal 0 binary64) (.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #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 (-.f64 #s(literal 0 binary64) (.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) (-.f64 #s(literal 0 binary64) (.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))) (.f64 (.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) (-.f64 #s(literal 0 binary64) (.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	62.4%	(.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 (-.f64 (.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (/.f64 #s(literal 1 binary64) (/.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	79.4%	(.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 (-.f64 (.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (-.f64 (.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.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 R #s(literal 2 binary64)))
	35.1%	(.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 (-.f64 (.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 (.f64 phi1 #s(literal 1/2 binary64)) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	35.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 (-.f64 (.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (+.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 R #s(literal 2 binary64)))
	41.3%	(.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 (-.f64 (.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (+.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (.f64 (.f64 #s(literal -1/8 binary64) phi2) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	45.0%	(.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 (-.f64 (.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	51.1%	(.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 (-.f64 (.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	49.1%	(.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 (-.f64 (.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) #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)))
	54.5%	(.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 (-.f64 (.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 #s(literal 1 binary64) (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)))
	51.1%	(.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 (-.f64 (.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.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 R #s(literal 2 binary64)))
	45.7%	(.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 (-.f64 (.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.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)))) (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 R #s(literal 2 binary64)))
	51.6%	(.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 (-.f64 (.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.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)))) (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 #s(literal 2 binary64)))
	61.9%	(.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 (-.f64 (.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) (.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) #s(literal 1 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	62.0%	(.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 (-.f64 (.f64 #s(literal 1 binary64) (sin.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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	44.1%	(.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 (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 (.f64 phi1 #s(literal 1/2 binary64)) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	32.8%	(.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 phi2 #s(literal -1/2 binary64))) #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 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	34.6%	(.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 phi1 #s(literal 1/2 binary64))) #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 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	31.7%	(.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) (.f64 (.f64 (cos.f64 phi1) (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi2 phi2) (+.f64 (.f64 (.f64 phi2 phi2) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (.f64 phi2 phi2)))) #s(literal -1/2 binary64))))) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	48.1%	(.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) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #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 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	38.7%	(.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) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	50.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) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	43.0%	(.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) (.f64 (.f64 (cos.f64 phi1) #s(literal 1 binary64)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	41.8%	(.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) (.f64 (.f64 #s(literal 1 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	61.8%	(.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) (.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (+.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 R #s(literal 2 binary64)))
	61.8%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))) (*.f64 R #s(literal 2 binary64)))
	62.1%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	50.8%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.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 #s(literal 2 binary64)))
	50.8%	(.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) #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 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	42.9%	(.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) #s(literal 1 binary64))) (pow.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 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	55.3%	(.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 #s(literal 1 binary64) (cos.f64 phi1))) (pow.f64 (-.f64 (.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	43.5%	(.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 #s(literal 1 binary64) (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) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	33.5%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.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)))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	43.2%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	35.4%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	36.9%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	48.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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	38.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)))
	45.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 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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.9%	(.f64 (atan2.f64 (sqrt.f64 (+.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))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	57.3%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.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)))
	41.6%	(.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)))
	44.7%	(.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 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	57.1%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 (-.f64 lambda2 lambda1) #s(literal -2 binary64)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))) (.f64 R #s(literal 2 binary64)))
	44.8%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (/.f64 (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi1))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	57.3%	(.f64 (atan2.f64 (exp.f64 (.f64 (log.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) #s(literal 1/2 binary64))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
▶	79.4%	(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 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)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
	54.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (.f64 (cos.f64 phi2) (cos.f64 (.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 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))))))))))
	53.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (.f64 lambda2 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (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 #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 #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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 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))))))))))
	55.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 lambda2 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 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))))))))))
	79.4%	(.f64 R (.f64 #s(literal 2 binary64) (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 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (-.f64 #s(literal 0 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 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 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))))))))))
	79.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))))) (-.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))) (-.f64 #s(literal 0 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 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 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))))))))))
	75.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (/.f64 phi2 #s(literal 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))) (-.f64 #s(literal 0 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 (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) (.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))) (-.f64 #s(literal 0 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 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 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))))))))))
	62.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	49.8%	(.f64 R (.f64 #s(literal 2 binary64) (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 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi1 phi1) (+.f64 (.f64 (.f64 phi1 phi1) #s(literal 1/384 binary64)) #s(literal -1/8 binary64)))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	55.2%	(.f64 R (.f64 #s(literal 2 binary64) (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 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 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))) (.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)))))) (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	54.5%	(.f64 R (.f64 #s(literal 2 binary64) (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 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 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))) (.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)))))) (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 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	54.9%	(.f64 R (.f64 #s(literal 2 binary64) (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 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (.f64 lambda2 #s(literal -1/2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 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))))))))))
	42.9%	(.f64 R (.f64 #s(literal 2 binary64) (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 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/8 binary64) (.f64 phi1 phi1))) (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))))))))))
	52.1%	(.f64 R (.f64 #s(literal 2 binary64) (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 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 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)) (+.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))))))))))
	39.0%	(.f64 R (.f64 #s(literal 2 binary64) (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 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 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)) (*.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))))))))))
	60.3%	(.f64 R (.f64 #s(literal 2 binary64) (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 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 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 lambda2 #s(literal -1/2 binary64))))))))))
	59.4%	(.f64 R (.f64 #s(literal 2 binary64) (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 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 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) #s(literal 1 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	53.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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 (.f64 (.f64 #s(literal 1 binary64) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	61.6%	(.f64 R (.f64 #s(literal 2 binary64) (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 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 #s(literal 1 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))))))))))
	60.9%	(.f64 R (.f64 #s(literal 2 binary64) (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 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) #s(literal 1 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))))))))))
	60.4%	(.f64 R (.f64 #s(literal 2 binary64) (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 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal 1 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	55.9%	(.f64 R (.f64 #s(literal 2 binary64) (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 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 #s(literal 1 binary64) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 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))))))))))
	63.4%	(.f64 R (.f64 #s(literal 2 binary64) (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 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) #s(literal 1 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	57.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 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))))))))))
	58.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 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))))))))))
	63.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1 binary64) (sin.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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	41.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 (.f64 phi1 #s(literal 1/2 binary64)) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
▶	41.1%	(.f64 R (.f64 #s(literal 2 binary64) (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
	29.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)))))) (+.f64 (sqrt.f64 (-.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)))))) (.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.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 #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))))))))))))
	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)))))))
	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 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 phi2) (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))))
	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 #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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
	31.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 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)))))))))
	39.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))))
	24.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 #s(literal 1/2 binary64) (.f64 phi1 phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))))
	33.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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 lambda1 lambda2))) #s(literal 2 binary64)))))))
	50.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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 (.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)))))))))
	7.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 (neg.f64 phi1) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))))
	38.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 phi1 (-.f64 (-.f64 (/.f64 #s(literal 1 binary64) phi1) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))))) (+.f64 (/.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) phi1) (/.f64 (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) phi1))))))))
	41.6%	(.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 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 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))))))))))
	47.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (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 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	29.6%	(.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 (-.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 (.f64 (cos.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.3%	(.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 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 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))))))))))
	58.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 phi2) (.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 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 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))))))))))
	44.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 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 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))))))))))
	49.5%	(.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 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 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))))))))))

Compiler

Compiled 25490 to 12982 computations (49.1% saved)

simplify282.0ms (0.6%)

Algorithm

1×	egg-herbie

Localize:

Found 20 expressions of interest:

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

Rules

3614×	`-lowering-.f32`
3614×	`-lowering-.f64`
2462×	`+-lowering-+.f64`
2462×	`+-lowering-+.f32`
1500×	`sum4-define`

Iterations

Useful iterations: 3 (0.0ms)

Iter	Nodes	Cost
0	145	2363
1	378	2265
2	1100	2238
3	3570	2229
0	8376	2229

Stop Event

1×	iter limit
1×	node limit

Calls

Call 1

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

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

localize996.0ms (2.1%)

Localize:

Found 20 expressions of interest:

New	Metric	Score	Program
✓	accuracy	100.0%	(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
✓	accuracy	100.0%	(cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))
✓	accuracy	100.0%	(cos.f64 phi2)
✓	accuracy	100.0%	(cos.f64 phi1)
✓	accuracy	100.0%	(cos.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))))
✓	accuracy	100.0%	(cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))
✓	accuracy	100.0%	(cos.f64 phi2)
✓	accuracy	100.0%	(cos.f64 phi1)
✓	accuracy	100.0%	(cos.f64 (-.f64 lambda1 lambda2))
✓	accuracy	100.0%	(cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))
✓	accuracy	100.0%	(cos.f64 phi2)
✓	accuracy	100.0%	(cos.f64 phi1)
✓	accuracy	100.0%	(cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
✓	accuracy	100.0%	(cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2)))
✓	accuracy	100.0%	(cos.f64 phi2)
✓	accuracy	100.0%	(cos.f64 phi1)
✓	accuracy	100.0%	(cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))
✓	accuracy	100.0%	(cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
✓	accuracy	100.0%	(cos.f64 phi2)
✓	accuracy	100.0%	(cos.f64 phi1)

Results

522.0ms

256×

invalid

Compiler

Compiled 2531 to 146 computations (94.2% saved)

Precisions

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

ival-mult: 99.0ms (28.7% of total)

ival-cos: 60.0ms (17.4% of total)

ival-pow: 38.0ms (11% of total)

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

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

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

ival-add: 24.0ms (7% of total)

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

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

...c/correct-round.rkt:119:19: 9.0ms (2.6% of total)

const: 1.0ms (0.3% of total)

backward-pass: 0.0ms (0% of total)

series850.0ms (1.8%)

Counts

31 → 1188

Calls

Call 1

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

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

Calls

297 calls:

Time	Variable		Point	Expression
468.0ms	phi2	@	inf	(* R (* 2 (atan2 (sqrt (+ (pow (+ (sin (* phi2 -1/2)) (* phi1 (+ (* (* -1/8 phi1) (sin (* phi2 -1/2))) (* 1/2 (cos (* phi2 -1/2)))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- (- 1 (* phi1 (* (sin (* phi2 -1/2)) (cos (* phi2 -1/2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* phi2 -1/2)) 2)))))))
48.0ms	phi1	@	inf	(* R (* 2 (atan2 (sqrt (+ (pow (+ (sin (* phi2 -1/2)) (* phi1 (+ (* (* -1/8 phi1) (sin (* phi2 -1/2))) (* 1/2 (cos (* phi2 -1/2)))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- (- 1 (* phi1 (* (sin (* phi2 -1/2)) (cos (* phi2 -1/2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* phi2 -1/2)) 2)))))))
28.0ms	phi1	@	inf	(sqrt (+ (+ 1/2 (* 1/2 (+ (cos phi1) (* phi2 (+ (* phi2 (+ (* (* -1/6 phi2) (sin phi1)) (* (cos phi1) -1/2))) (sin phi1)))))) (/ (* (+ (cos (* (- lambda1 lambda2) 1)) -1) (* (cos phi1) (cos phi2))) 2)))
25.0ms	phi2	@	-inf	(sqrt (+ (pow (+ (sin (* phi2 -1/2)) (* phi1 (+ (* (* -1/8 phi1) (sin (* phi2 -1/2))) (* 1/2 (cos (* phi2 -1/2)))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))
20.0ms	phi2	@	0	(* (* 2 R) (atan2 (sqrt (+ (pow (- (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (cos phi1) (cos phi2)) (pow (sin (* -1/2 (- lambda2 lambda1))) 2)))) (sqrt (- (- 1 (* (* (cos phi1) (cos phi2)) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2)))))

rewrite389.0ms (0.8%)

Algorithm

1×	batch-egg-rewrite

Rules

4646×	`-lowering-.f32`
4646×	`-lowering-.f64`
2680×	`/-lowering-/.f32`
2680×	`/-lowering-/.f64`
2260×	`+-lowering-+.f64`

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	145	999
1	866	858
0	8187	858

Stop Event

1×	iter limit
1×	node limit

Counts

31 → 211

Calls

Call 1

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

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

simplify1.3s (2.7%)

Algorithm

1×	egg-herbie

Rules

7000×	`-lowering-.f32`
7000×	`-lowering-.f64`
3618×	`+-lowering-+.f64`
3618×	`+-lowering-+.f32`
1614×	`*-commutative`

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	1576	58512
1	5174	58047
0	8422	58047

Stop Event

1×	iter limit
1×	node limit

Counts

1188 → 1188

Calls

Call 1

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

Outputs
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))))))
(* 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) (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 #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 lambda1 lambda2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 lambda1 lambda2))) #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) (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 #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 lambda1 lambda2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 lambda1 lambda2))) #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) (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 #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 lambda1 lambda2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 lambda1 lambda2))) #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) (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 #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 lambda1 lambda2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 lambda1 lambda2))) #s(literal 2 binary64))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))))))
(* 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) (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 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))))))
(* 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) (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 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))))))
(* 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) (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 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))))))
(* 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) (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 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))))))
(* 2 R)
(*.f64 #s(literal 2 binary64) R)
(* 2 R)
(*.f64 #s(literal 2 binary64) R)
(* 2 R)
(*.f64 #s(literal 2 binary64) R)
(* 2 R)
(*.f64 #s(literal 2 binary64) R)
(* 2 R)
(*.f64 #s(literal 2 binary64) R)
(* 2 R)
(*.f64 #s(literal 2 binary64) R)
(* 2 R)
(*.f64 #s(literal 2 binary64) R)
(* 2 R)
(*.f64 #s(literal 2 binary64) R)
(* 2 R)
(*.f64 #s(literal 2 binary64) R)
(* 2 R)
(*.f64 #s(literal 2 binary64) R)
(* 2 R)
(*.f64 #s(literal 2 binary64) R)
(* 2 R)
(*.f64 #s(literal 2 binary64) R)
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))))
(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) (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)))))
(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 lambda1 lambda2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 lambda1 lambda2))) #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) (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)))))
(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 lambda1 lambda2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 lambda1 lambda2))) #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) (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)))))
(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 lambda1 lambda2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 lambda1 lambda2))) #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) (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)))))
(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 lambda1 lambda2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 lambda1 lambda2))) #s(literal 2 binary64)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))))
(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) (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)))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))))
(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) (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)))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))))
(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) (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)))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))))
(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) (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)))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))))
(sqrt (+ (* (cos phi1) (pow (sin (* -1/2 (- lambda2 lambda1))) 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 lambda2 lambda1))) #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 (- lambda2 lambda1))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* -1/2 (* (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* -1/2 (- lambda2 lambda1))) 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 lambda2 lambda1))) #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 lambda2 lambda1))) #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 (- lambda2 lambda1))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* -1/2 (- lambda2 lambda1))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (* phi2 (- (+ (* -1/2 (* (cos phi1) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* -1/2 (- lambda2 lambda1))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* -1/2 (- lambda2 lambda1))) 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 lambda2 lambda1))) #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 lambda2 lambda1))) #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 lambda2 lambda1))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (-.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 phi1 #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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #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 (- lambda2 lambda1))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* -1/2 (- lambda2 lambda1))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* -1/2 (- lambda2 lambda1))) 2)) (pow (sin (* 1/2 phi1)) 2)))) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* -1/2 (- lambda2 lambda1))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (* 1/2 (* (* phi2 (- (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (* -1/2 (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* -1/2 (- lambda2 lambda1))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* -1/2 (- lambda2 lambda1))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* -1/2 (- lambda2 lambda1))) 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 lambda2 lambda1))) #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 lambda2 lambda1))) #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 lambda2 lambda1))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (-.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 phi1 #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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (.f64 phi2 (.f64 (+.f64 (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (-.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 phi1 #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 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #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 lambda2 lambda1))) #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 lambda2 lambda1))) #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 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))
(sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2)) (pow (sin (* 1/2 phi2)) 2))) (* -1/2 (* (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2)) (pow (sin (* 1/2 phi2)) 2)))))))
(+.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 phi1 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2)) (pow (sin (* 1/2 phi2)) 2))) (* phi1 (+ (* -1/2 (* (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (* 1/2 (* (* phi1 (- (+ (* -1/2 (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2)) (pow (sin (* 1/2 phi2)) 2)))))))))
(+.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (.f64 phi1 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 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 lambda2 lambda1))) #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 lambda2 lambda1))) #s(literal 2 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 (.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 lambda2 lambda1))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2)) (pow (sin (* 1/2 phi2)) 2))) (* phi1 (+ (* -1/2 (* (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2)) (pow (sin (* 1/2 phi2)) 2)))) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 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 (- lambda2 lambda1))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2)) (pow (sin (* 1/2 phi2)) 2))))))) (+ (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2)) (pow (sin (* 1/2 phi2)) 2)))))))))))
(+.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (.f64 phi1 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (.f64 phi1 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #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 lambda2 lambda1))) #s(literal 2 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 (.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 lambda2 lambda1))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (.f64 phi1 (.f64 (+.f64 (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (-.f64 (+.f64 (.f64 (.f64 (cos.f64 phi2) #s(literal -1/2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 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 (.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 lambda2 lambda1))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* -1/2 (* (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #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 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda1 #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 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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))))))) (.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 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 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (* (sin (* 1/2 lambda1)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda1 #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 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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))))))) (.f64 lambda2 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))) (.f64 lambda2 (.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #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 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))))))) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 lambda1 lambda2))) #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 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 lambda1 lambda2))) #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 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 lambda1 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)))
(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) 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 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) lambda2)) #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 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) 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 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) 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 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) lambda2)) #s(literal 2 binary64)))))) (.f64 lambda1 (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) lambda2)) #s(literal 2 binary64)))))))) (.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)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda1 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))) (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (* (sin (* -1/2 lambda2)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))))
(+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) lambda2)) #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 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) 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 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) lambda2)) #s(literal 2 binary64)))))) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) lambda2)) #s(literal 2 binary64))))))) (.f64 lambda1 (.f64 (+.f64 (.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))) (.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) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) lambda2)) #s(literal 2 binary64)))))))) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) lambda2)) #s(literal 2 binary64))))))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (- lambda2 lambda1))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 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))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 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))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 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))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 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))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 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))))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 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))))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 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))))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 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))))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(* 2 (* R (atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))))
(.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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (+ phi1 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64)))))
(atan2 (sqrt (+ 1/2 (+ (* -1/2 (cos (- phi1 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))))) (* (pow phi2 3) (* (cos (* 1/2 phi1)) (sqrt -1/2304))))
(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 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 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 (cos.f64 phi2) #s(literal -1/2 binary64))) (.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)))))))
(+ (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 (cos.f64 phi2) #s(literal -1/2 binary64))) (.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))))))) (.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 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))))))))))
(+ (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 (cos.f64 phi2) #s(literal -1/2 binary64))) (.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))))))) (.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 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))))))))) (.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 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)))))))) (-.f64 (+.f64 (.f64 (.f64 (cos.f64 phi2) #s(literal -1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (.f64 (cos.f64 phi2) #s(literal 1/4 binary64))) (/.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 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))))))))))))))
(+ (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 (cos.f64 phi2) #s(literal -1/2 binary64))) (.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))))))) (.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 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))))))))) (.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 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)))))))) (-.f64 (+.f64 (.f64 (.f64 (cos.f64 phi2) #s(literal -1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (.f64 (cos.f64 phi2) #s(literal 1/4 binary64))) (/.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 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))))))))) (.f64 phi1 (.f64 (+.f64 (neg.f64 (.f64 (sin.f64 phi2) #s(literal -1/12 binary64))) (.f64 #s(literal -1/4 binary64) (.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi2)) (/.f64 (-.f64 (+.f64 (.f64 (.f64 (cos.f64 phi2) #s(literal -1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (.f64 (cos.f64 phi2) #s(literal 1/4 binary64))) (/.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 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)))))))) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) #s(literal -1/2 binary64))) (.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) #s(literal -1/2 binary64))) (.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 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 lambda2 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 lambda2 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 lambda2 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 lambda2 lambda1)))))))
(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 lambda2 lambda1)))))))
(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 lambda2 lambda1)))))))
(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 lambda2 lambda1)))))))
(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 lambda2 lambda1)))))))
(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 (cos.f64 phi1) #s(literal -1/2 binary64))) (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)))))))
(+ (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 (cos.f64 phi1) #s(literal -1/2 binary64))) (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))))))) (.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 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))))))))))
(+ (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 (cos.f64 phi1) #s(literal -1/2 binary64))) (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))))))) (.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 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))))))))) (.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 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)))))))) (+.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (.f64 (cos.f64 phi1) #s(literal 1/4 binary64))) (.f64 (/.f64 (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 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))))))) #s(literal -1/16 binary64)))))))))
(+ (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 (cos.f64 phi1) #s(literal -1/2 binary64))) (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))))))) (.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 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))))))))) (.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 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)))))))) (+.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (.f64 (cos.f64 phi1) #s(literal 1/4 binary64))) (.f64 (/.f64 (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 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))))))) #s(literal -1/16 binary64)))) (.f64 phi2 (.f64 (+.f64 (.f64 (sin.f64 phi1) #s(literal 1/12 binary64)) (.f64 #s(literal 1/4 binary64) (.f64 (sin.f64 phi1) (/.f64 (+.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (.f64 (cos.f64 phi1) #s(literal 1/4 binary64))) (.f64 (/.f64 (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 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))))))) #s(literal -1/16 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) #s(literal -1/2 binary64))) (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) #s(literal -1/2 binary64))) (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 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 lambda2 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 lambda2 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 lambda2 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 lambda2 lambda1)))))))
(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 lambda2 lambda1)))))))
(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 lambda2 lambda1)))))))
(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 lambda2 lambda1)))))))
(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 lambda2 lambda1)))))))
(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 (cos.f64 phi1) (.f64 (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 (cos.f64 phi1) (.f64 (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 (cos.f64 phi1) (.f64 (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 (cos.f64 phi1) (.f64 (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) (neg.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (.f64 (cos.f64 phi1) (.f64 (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 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 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))))))))) (+.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal 1/4 binary64)) (.f64 (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) (cos.f64 (-.f64 phi1 phi2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))))))) #s(literal -1/16 binary64)))))))))
(+ (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 (cos.f64 phi1) (.f64 (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) (neg.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (.f64 (cos.f64 phi1) (.f64 (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 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))))))))) (+.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal 1/4 binary64)) (.f64 (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) (cos.f64 (-.f64 phi1 phi2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))))))) #s(literal -1/16 binary64)))) (.f64 lambda1 (.f64 (+.f64 (.f64 (.f64 #s(literal -1/12 binary64) (cos.f64 phi1)) (.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))) (+.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal 1/4 binary64)) (.f64 (cos.f64 phi2) (cos.f64 lambda2))) (.f64 (/.f64 (.f64 (.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) (cos.f64 (-.f64 phi1 phi2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))))))) #s(literal -1/16 binary64))))) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (.f64 (cos.f64 phi1) (.f64 (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 (cos.f64 phi1) (.f64 (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 lambda2 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 lambda2 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 lambda2 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 lambda2 lambda1)))))))
(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 lambda2 lambda1)))))))
(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 lambda2 lambda1)))))))
(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 lambda2 lambda1)))))))
(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 lambda2 lambda1)))))))
(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 (.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 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (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) (cos.f64 lambda1)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (+.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))))))) #s(literal -1/16 binary64)))))))))
(+ (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 (.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) (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))))))) #s(literal -1/16 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 (.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) (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))))))) #s(literal -1/16 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 #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 lambda2 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 lambda2 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 lambda2 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 lambda2 lambda1)))))))
(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 lambda2 lambda1)))))))
(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 lambda2 lambda1)))))))
(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 lambda2 lambda1)))))))
(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 lambda2 lambda1)))))))
(+ 1/2 (+ (* -1/2 (cos (neg phi2))) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) #s(literal -1/2 binary64))) (.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))))))
(+ 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 (.f64 (cos.f64 phi2) #s(literal -1/2 binary64)) (.f64 (.f64 phi1 #s(literal 1/2 binary64)) (-.f64 #s(literal 0 binary64) (sin.f64 phi2)))) (.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)))))))
(+ 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 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) #s(literal -1/2 binary64))) (+.f64 (.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (.f64 phi1 (+.f64 (neg.f64 (.f64 (sin.f64 phi2) #s(literal 1/2 binary64))) (.f64 phi1 (+.f64 (.f64 (.f64 (cos.f64 phi2) #s(literal -1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (.f64 (cos.f64 phi2) #s(literal 1/4 binary64))))))))
(+ 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 (cos.f64 phi2) #s(literal -1/2 binary64))) (+.f64 (.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (.f64 phi1 (+.f64 (neg.f64 (.f64 (sin.f64 phi2) #s(literal 1/2 binary64))) (.f64 phi1 (+.f64 (.f64 (.f64 (cos.f64 phi2) #s(literal -1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (+.f64 (.f64 (cos.f64 phi2) #s(literal 1/4 binary64)) (.f64 (.f64 #s(literal -1/12 binary64) phi1) (-.f64 #s(literal 0 binary64) (sin.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 lambda2 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 lambda2 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 lambda2 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 lambda2 lambda1))))))
(+ 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 lambda2 lambda1))))))
(+ 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 lambda2 lambda1))))))
(+ 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 lambda2 lambda1))))))
(+ 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 lambda2 lambda1))))))
(+ 1/2 (+ (* -1/2 (cos phi1)) (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) #s(literal -1/2 binary64))) (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))))))
(+ 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 (cos.f64 phi1) #s(literal -1/2 binary64)) (+.f64 (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (.f64 #s(literal -1/2 binary64) (*.f64 phi2 (sin.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/4 (cos phi1)))))) (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 phi2 (+.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 phi1)) (.f64 phi2 (+.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (.f64 (cos.f64 phi1) #s(literal 1/4 binary64))))))) (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)))))))
(+ 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 #s(literal 1/2 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 phi2 (+.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 phi1)) (.f64 phi2 (+.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (+.f64 (.f64 (cos.f64 phi1) #s(literal 1/4 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal 1/12 binary64)))))))) (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 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 lambda2 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 lambda2 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 lambda2 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 lambda2 lambda1))))))
(+ 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 lambda2 lambda1))))))
(+ 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 lambda2 lambda1))))))
(+ 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 lambda2 lambda1))))))
(+ 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 lambda2 lambda1))))))
(+ 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 (cos.f64 phi1) (.f64 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (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 lambda1 (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 (cos.f64 phi1) (.f64 (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) 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))))))))
(+ 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 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))))) (.f64 lambda1 (+.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))) (.f64 lambda1 (+.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal 1/4 binary64)) (.f64 (cos.f64 phi2) (cos.f64 lambda2))) (.f64 #s(literal -1/12 binary64) (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))))))))))))
(+ 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 lambda2 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 lambda2 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 lambda2 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 lambda2 lambda1))))))
(+ 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 lambda2 lambda1))))))
(+ 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 lambda2 lambda1))))))
(+ 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 lambda2 lambda1))))))
(+ 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 lambda2 lambda1))))))
(+ 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 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (.f64 #s(literal -1/2 binary64) (.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 (+.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 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 lambda2 (cos.f64 lambda1)) (.f64 (cos.f64 phi1) (cos.f64 phi2))))))))
(+ 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 (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 #s(literal 1/12 binary64) (.f64 (.f64 lambda2 (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 lambda2 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 lambda2 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 lambda2 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 lambda2 lambda1))))))
(+ 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 lambda2 lambda1))))))
(+ 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 lambda2 lambda1))))))
(+ 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 lambda2 lambda1))))))
(+ 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 lambda2 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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (* -1 (+ phi2 (* -1 phi1))))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 (* -1 phi2)))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.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))) (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) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.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))) (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) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.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))) (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) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.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))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 phi2))) (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (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) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.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))) (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) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.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))) (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) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.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))) (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) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.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))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (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 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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 (cos.f64 phi2) #s(literal -1/2 binary64))) (.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)))))))
(+ (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 (cos.f64 phi2) #s(literal -1/2 binary64))) (.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))))))) (.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 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))))))))))
(+ (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 (cos.f64 phi2) #s(literal -1/2 binary64))) (.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))))))) (.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 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))))))))) (.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 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)))))))) (-.f64 (+.f64 (.f64 (.f64 (cos.f64 phi2) #s(literal -1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (.f64 (cos.f64 phi2) #s(literal 1/4 binary64))) (/.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 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))))))))))))))
(+ (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 (cos.f64 phi2) #s(literal -1/2 binary64))) (.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))))))) (.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 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))))))))) (.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 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)))))))) (-.f64 (+.f64 (.f64 (.f64 (cos.f64 phi2) #s(literal -1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (.f64 (cos.f64 phi2) #s(literal 1/4 binary64))) (/.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 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))))))))) (.f64 phi1 (.f64 (+.f64 (neg.f64 (.f64 (sin.f64 phi2) #s(literal -1/12 binary64))) (.f64 #s(literal -1/4 binary64) (.f64 (-.f64 #s(literal 0 binary64) (sin.f64 phi2)) (/.f64 (-.f64 (+.f64 (.f64 (.f64 (cos.f64 phi2) #s(literal -1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (.f64 (cos.f64 phi2) #s(literal 1/4 binary64))) (/.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 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)))))))) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) #s(literal -1/2 binary64))) (.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) #s(literal -1/2 binary64))) (.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 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 lambda2 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 lambda2 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 lambda2 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 lambda2 lambda1)))))))
(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 lambda2 lambda1)))))))
(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 lambda2 lambda1)))))))
(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 lambda2 lambda1)))))))
(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 lambda2 lambda1)))))))
(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 (cos.f64 phi1) #s(literal -1/2 binary64))) (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)))))))
(+ (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 (cos.f64 phi1) #s(literal -1/2 binary64))) (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))))))) (.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 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))))))))))
(+ (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 (cos.f64 phi1) #s(literal -1/2 binary64))) (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))))))) (.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 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))))))))) (.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 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)))))))) (+.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (.f64 (cos.f64 phi1) #s(literal 1/4 binary64))) (.f64 (/.f64 (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 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))))))) #s(literal -1/16 binary64)))))))))
(+ (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 (cos.f64 phi1) #s(literal -1/2 binary64))) (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))))))) (.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 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))))))))) (.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 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)))))))) (+.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (.f64 (cos.f64 phi1) #s(literal 1/4 binary64))) (.f64 (/.f64 (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 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))))))) #s(literal -1/16 binary64)))) (.f64 phi2 (.f64 (+.f64 (.f64 (sin.f64 phi1) #s(literal 1/12 binary64)) (.f64 #s(literal 1/4 binary64) (.f64 (sin.f64 phi1) (/.f64 (+.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (.f64 (cos.f64 phi1) #s(literal 1/4 binary64))) (.f64 (/.f64 (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 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))))))) #s(literal -1/16 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) #s(literal -1/2 binary64))) (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) #s(literal -1/2 binary64))) (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 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 lambda2 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 lambda2 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 lambda2 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 lambda2 lambda1)))))))
(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 lambda2 lambda1)))))))
(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 lambda2 lambda1)))))))
(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 lambda2 lambda1)))))))
(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 lambda2 lambda1)))))))
(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 (cos.f64 phi1) (.f64 (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 (cos.f64 phi1) (.f64 (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 (cos.f64 phi1) (.f64 (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 (cos.f64 phi1) (.f64 (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) (neg.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (.f64 (cos.f64 phi1) (.f64 (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 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 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))))))))) (+.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal 1/4 binary64)) (.f64 (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) (cos.f64 (-.f64 phi1 phi2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))))))) #s(literal -1/16 binary64)))))))))
(+ (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 (cos.f64 phi1) (.f64 (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) (neg.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (.f64 (cos.f64 phi1) (.f64 (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 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))))))))) (+.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal 1/4 binary64)) (.f64 (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) (cos.f64 (-.f64 phi1 phi2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))))))) #s(literal -1/16 binary64)))) (.f64 lambda1 (.f64 (+.f64 (.f64 (.f64 #s(literal -1/12 binary64) (cos.f64 phi1)) (.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))) (+.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal 1/4 binary64)) (.f64 (cos.f64 phi2) (cos.f64 lambda2))) (.f64 (/.f64 (.f64 (.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) (cos.f64 (-.f64 phi1 phi2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))))))) #s(literal -1/16 binary64))))) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (.f64 (cos.f64 phi1) (.f64 (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 (cos.f64 phi1) (.f64 (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 lambda2 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 lambda2 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 lambda2 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 lambda2 lambda1)))))))
(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 lambda2 lambda1)))))))
(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 lambda2 lambda1)))))))
(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 lambda2 lambda1)))))))
(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 lambda2 lambda1)))))))
(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 (.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 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (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) (cos.f64 lambda1)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (+.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))))))) #s(literal -1/16 binary64)))))))))
(+ (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 (.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) (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))))))) #s(literal -1/16 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 (.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) (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))))))) #s(literal -1/16 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 #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 lambda2 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 lambda2 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 lambda2 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 lambda2 lambda1)))))))
(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 lambda2 lambda1)))))))
(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 lambda2 lambda1)))))))
(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 lambda2 lambda1)))))))
(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 lambda2 lambda1)))))))
(+ 1/2 (+ (* -1/2 (cos (neg phi2))) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) #s(literal -1/2 binary64))) (.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))))))
(+ 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 (.f64 (cos.f64 phi2) #s(literal -1/2 binary64)) (.f64 (.f64 phi1 #s(literal 1/2 binary64)) (-.f64 #s(literal 0 binary64) (sin.f64 phi2)))) (.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)))))))
(+ 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 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) #s(literal -1/2 binary64))) (+.f64 (.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (.f64 phi1 (+.f64 (neg.f64 (.f64 (sin.f64 phi2) #s(literal 1/2 binary64))) (.f64 phi1 (+.f64 (.f64 (.f64 (cos.f64 phi2) #s(literal -1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (.f64 (cos.f64 phi2) #s(literal 1/4 binary64))))))))
(+ 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 (cos.f64 phi2) #s(literal -1/2 binary64))) (+.f64 (.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (.f64 phi1 (+.f64 (neg.f64 (.f64 (sin.f64 phi2) #s(literal 1/2 binary64))) (.f64 phi1 (+.f64 (.f64 (.f64 (cos.f64 phi2) #s(literal -1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (+.f64 (.f64 (cos.f64 phi2) #s(literal 1/4 binary64)) (.f64 (.f64 #s(literal -1/12 binary64) phi1) (-.f64 #s(literal 0 binary64) (sin.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 lambda2 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 lambda2 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 lambda2 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 lambda2 lambda1))))))
(+ 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 lambda2 lambda1))))))
(+ 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 lambda2 lambda1))))))
(+ 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 lambda2 lambda1))))))
(+ 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 lambda2 lambda1))))))
(+ 1/2 (+ (* -1/2 (cos phi1)) (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) #s(literal -1/2 binary64))) (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))))))
(+ 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 (cos.f64 phi1) #s(literal -1/2 binary64)) (+.f64 (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (.f64 #s(literal -1/2 binary64) (*.f64 phi2 (sin.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/4 (cos phi1)))))) (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 phi2 (+.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 phi1)) (.f64 phi2 (+.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (.f64 (cos.f64 phi1) #s(literal 1/4 binary64))))))) (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)))))))
(+ 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 #s(literal 1/2 binary64) (+.f64 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 phi2 (+.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 phi1)) (.f64 phi2 (+.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (+.f64 (.f64 (cos.f64 phi1) #s(literal 1/4 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal 1/12 binary64)))))))) (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 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 lambda2 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 lambda2 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 lambda2 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 lambda2 lambda1))))))
(+ 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 lambda2 lambda1))))))
(+ 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 lambda2 lambda1))))))
(+ 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 lambda2 lambda1))))))
(+ 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 lambda2 lambda1))))))
(+ 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 (cos.f64 phi1) (.f64 (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (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 lambda1 (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 (cos.f64 phi1) (.f64 (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) 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))))))))
(+ 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 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))))) (.f64 lambda1 (+.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))) (.f64 lambda1 (+.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal 1/4 binary64)) (.f64 (cos.f64 phi2) (cos.f64 lambda2))) (.f64 #s(literal -1/12 binary64) (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))))))))))))
(+ 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 lambda2 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 lambda2 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 lambda2 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 lambda2 lambda1))))))
(+ 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 lambda2 lambda1))))))
(+ 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 lambda2 lambda1))))))
(+ 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 lambda2 lambda1))))))
(+ 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 lambda2 lambda1))))))
(+ 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 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (.f64 #s(literal -1/2 binary64) (.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 (+.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 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 lambda2 (cos.f64 lambda1)) (.f64 (cos.f64 phi1) (cos.f64 phi2))))))))
(+ 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 (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 #s(literal 1/12 binary64) (.f64 (.f64 lambda2 (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 lambda2 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 lambda2 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 lambda2 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 lambda2 lambda1))))))
(+ 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 lambda2 lambda1))))))
(+ 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 lambda2 lambda1))))))
(+ 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 lambda2 lambda1))))))
(+ 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 lambda2 lambda1))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.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/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 lambda2 lambda1)))) (.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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.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/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 lambda2 lambda1)))) (.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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.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/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 lambda2 lambda1)))) (.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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.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/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 lambda2 lambda1)))) (.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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (+ (* -1/2 (* (pow phi2 2) (cos phi1))) (+ (* -1/6 (* (pow phi2 3) (sin phi1))) (* phi2 (sin phi1))))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2)) (cos.f64 phi1)) (+.f64 (.f64 phi2 (sin.f64 phi1)) (.f64 (.f64 #s(literal -1/6 binary64) (.f64 phi2 (*.f64 phi2 phi2))) (sin.f64 phi1)))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (+ (* -1/2 (* (pow phi2 2) (cos phi1))) (+ (* -1/6 (* (pow phi2 3) (sin phi1))) (* phi2 (sin phi1))))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2)) (cos.f64 phi1)) (+.f64 (.f64 phi2 (sin.f64 phi1)) (.f64 (.f64 #s(literal -1/6 binary64) (.f64 phi2 (*.f64 phi2 phi2))) (sin.f64 phi1)))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (+ (* -1/2 (* (pow phi2 2) (cos phi1))) (+ (* -1/6 (* (pow phi2 3) (sin phi1))) (* phi2 (sin phi1))))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2)) (cos.f64 phi1)) (+.f64 (.f64 phi2 (sin.f64 phi1)) (.f64 (.f64 #s(literal -1/6 binary64) (.f64 phi2 (*.f64 phi2 phi2))) (sin.f64 phi1)))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (+ (* -1/2 (* (pow phi2 2) (cos phi1))) (+ (* -1/6 (* (pow phi2 3) (sin phi1))) (* phi2 (sin phi1))))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2)) (cos.f64 phi1)) (+.f64 (.f64 phi2 (sin.f64 phi1)) (.f64 (.f64 #s(literal -1/6 binary64) (.f64 phi2 (*.f64 phi2 phi2))) (sin.f64 phi1)))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -2 (+ lambda2 (* -1 lambda1)))))))) (+ 1 (cos (neg (+ lambda2 (* -1 lambda1)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -2 binary64))))))) (+.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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -2 (+ lambda2 (* -1 lambda1)))))))) (+ 1 (cos (neg (+ lambda2 (* -1 lambda1)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -2 binary64))))))) (+.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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -2 (+ lambda2 (* -1 lambda1)))))))) (+ 1 (cos (neg (+ lambda2 (* -1 lambda1)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -2 binary64))))))) (+.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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -2 (+ lambda2 (* -1 lambda1)))))))) (+ 1 (cos (neg (+ lambda2 (* -1 lambda1)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -2 binary64))))))) (+.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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (+ lambda1 (* -1 lambda2)))))))) (+ 1 (cos (+ lambda1 (* -1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (+ lambda1 (* -1 lambda2)))))))) (+ 1 (cos (+ lambda1 (* -1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (+ lambda1 (* -1 lambda2)))))))) (+ 1 (cos (+ lambda1 (* -1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (+ lambda1 (* -1 lambda2)))))))) (+ 1 (cos (+ lambda1 (* -1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))))
(* 2 (* R (atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))
(atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))
(atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))
(atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))
(atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))
(atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))
(atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))
(atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))
(atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))
(atan2.f64 (sqrt.f64 (+.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/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 lambda2 lambda1)))) (.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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))
(atan2.f64 (sqrt.f64 (+.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/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 lambda2 lambda1)))) (.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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))
(atan2.f64 (sqrt.f64 (+.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/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 lambda2 lambda1)))) (.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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))
(atan2.f64 (sqrt.f64 (+.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/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 lambda2 lambda1)))) (.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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))
(atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))
(atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))
(atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))
(atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (+ (* -1/2 (* (pow phi2 2) (cos phi1))) (+ (* -1/6 (* (pow phi2 3) (sin phi1))) (* phi2 (sin phi1))))))))))
(atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2)) (cos.f64 phi1)) (+.f64 (.f64 phi2 (sin.f64 phi1)) (.f64 (.f64 #s(literal -1/6 binary64) (.f64 phi2 (*.f64 phi2 phi2))) (sin.f64 phi1))))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (+ (* -1/2 (* (pow phi2 2) (cos phi1))) (+ (* -1/6 (* (pow phi2 3) (sin phi1))) (* phi2 (sin phi1))))))))))
(atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2)) (cos.f64 phi1)) (+.f64 (.f64 phi2 (sin.f64 phi1)) (.f64 (.f64 #s(literal -1/6 binary64) (.f64 phi2 (*.f64 phi2 phi2))) (sin.f64 phi1))))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (+ (* -1/2 (* (pow phi2 2) (cos phi1))) (+ (* -1/6 (* (pow phi2 3) (sin phi1))) (* phi2 (sin phi1))))))))))
(atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2)) (cos.f64 phi1)) (+.f64 (.f64 phi2 (sin.f64 phi1)) (.f64 (.f64 #s(literal -1/6 binary64) (.f64 phi2 (*.f64 phi2 phi2))) (sin.f64 phi1))))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (+ (* -1/2 (* (pow phi2 2) (cos phi1))) (+ (* -1/6 (* (pow phi2 3) (sin phi1))) (* phi2 (sin phi1))))))))))
(atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2)) (cos.f64 phi1)) (+.f64 (.f64 phi2 (sin.f64 phi1)) (.f64 (.f64 #s(literal -1/6 binary64) (.f64 phi2 (*.f64 phi2 phi2))) (sin.f64 phi1))))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))
(atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))
(atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))
(atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))
(atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))
(atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))
(atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))
(atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))
(atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))
(atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))
(atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))
(atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))
(atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -2 (+ lambda2 (* -1 lambda1)))))))) (+ 1 (cos (neg (+ lambda2 (* -1 lambda1)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))
(atan2.f64 (sqrt.f64 (+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -2 binary64))))))) (+.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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -2 (+ lambda2 (* -1 lambda1)))))))) (+ 1 (cos (neg (+ lambda2 (* -1 lambda1)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))
(atan2.f64 (sqrt.f64 (+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -2 binary64))))))) (+.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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -2 (+ lambda2 (* -1 lambda1)))))))) (+ 1 (cos (neg (+ lambda2 (* -1 lambda1)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))
(atan2.f64 (sqrt.f64 (+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -2 binary64))))))) (+.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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -2 (+ lambda2 (* -1 lambda1)))))))) (+ 1 (cos (neg (+ lambda2 (* -1 lambda1)))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))
(atan2.f64 (sqrt.f64 (+.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/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -2 binary64))))))) (+.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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))
(atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))
(atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))
(atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))
(atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))
(atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))
(atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))
(atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (- lambda1 lambda2))))))) (+ 1 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))
(atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (+ lambda1 (* -1 lambda2)))))))) (+ 1 (cos (+ lambda1 (* -1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))
(atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (+ lambda1 (* -1 lambda2)))))))) (+ 1 (cos (+ lambda1 (* -1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))
(atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (+ lambda1 (* -1 lambda2)))))))) (+ 1 (cos (+ lambda1 (* -1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))
(atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))))))
(atan2 (sqrt (- (+ 1/2 (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* 2 (+ lambda1 (* -1 lambda2)))))))) (+ 1 (cos (+ lambda1 (* -1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))
(atan2.f64 (sqrt.f64 (+.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/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 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))))))
(sqrt (+ 1/2 (+ (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (* 1/2 (+ 1 (* -1/2 (pow phi2 2)))))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (cos.f64 phi2) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2)))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (* 1/2 (+ 1 (* -1/2 (pow phi2 2))))))) (* 1/4 (* (* phi1 (* phi2 (+ 1 (* -1/6 (pow phi2 2))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (* 1/2 (+ 1 (* -1/2 (pow phi2 2)))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (cos.f64 phi2) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2))))))) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 phi1 phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (.f64 phi2 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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2))))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (* 1/2 (+ 1 (* -1/2 (pow phi2 2))))))) (* phi1 (+ (* 1/4 (* (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (* 1/2 (+ 1 (* -1/2 (pow phi2 2)))))))))) (* 1/2 (* (* phi1 (- (+ (* -1/4 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (* 1/2 (- (* 1/4 (pow phi2 2)) 1/2))) (* 1/16 (/ (* (pow phi2 2) (pow (+ 1 (* -1/6 (pow phi2 2))) 2)) (+ 1/2 (+ (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (* 1/2 (+ 1 (* -1/2 (pow phi2 2)))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (* 1/2 (+ 1 (* -1/2 (pow phi2 2)))))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (cos.f64 phi2) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2))))))) (.f64 phi1 (+.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (.f64 phi2 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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2))))))))) (.f64 #s(literal 1/2 binary64) (.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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2)))))))) (-.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64)))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/4 binary64) (.f64 phi2 phi2))) #s(literal -1/4 binary64))) (/.f64 (.f64 #s(literal 1/16 binary64) (.f64 (.f64 phi2 phi2) (.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (.f64 phi2 phi2))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (.f64 phi2 phi2)))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (cos.f64 phi2) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2))))))))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (* 1/2 (+ 1 (* -1/2 (pow phi2 2))))))) (* phi1 (+ (* 1/4 (* (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (* 1/2 (+ 1 (* -1/2 (pow phi2 2)))))))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (* 1/2 (+ 1 (* -1/2 (pow phi2 2)))))))) (- (+ (* -1/4 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (* 1/2 (- (* 1/4 (pow phi2 2)) 1/2))) (* 1/16 (/ (* (pow phi2 2) (pow (+ 1 (* -1/6 (pow phi2 2))) 2)) (+ 1/2 (+ (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (* 1/2 (+ 1 (* -1/2 (pow phi2 2))))))))))) (* 1/2 (* (* phi1 (- (* 1/2 (* phi2 (- (* 1/36 (pow phi2 2)) 1/6))) (* 1/4 (/ (* phi2 (* (+ 1 (* -1/6 (pow phi2 2))) (- (+ (* -1/4 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (* 1/2 (- (* 1/4 (pow phi2 2)) 1/2))) (* 1/16 (/ (* (pow phi2 2) (pow (+ 1 (* -1/6 (pow phi2 2))) 2)) (+ 1/2 (+ (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (* 1/2 (+ 1 (* -1/2 (pow phi2 2))))))))))) (+ 1/2 (+ (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (* 1/2 (+ 1 (* -1/2 (pow phi2 2)))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (* 1/2 (+ 1 (* -1/2 (pow phi2 2)))))))))))))))
(+.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (cos.f64 phi2) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2))))))) (.f64 phi1 (+.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (.f64 phi2 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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2))))))))) (.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 (.f64 (cos.f64 phi2) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2)))))))) (-.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64)))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/4 binary64) (.f64 phi2 phi2))) #s(literal -1/4 binary64))) (/.f64 (.f64 #s(literal 1/16 binary64) (.f64 (.f64 phi2 phi2) (.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (.f64 phi2 phi2))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (.f64 phi2 phi2)))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (cos.f64 phi2) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2))))))))) (.f64 phi1 (.f64 (+.f64 (.f64 (.f64 phi2 #s(literal 1/2 binary64)) (+.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/36 binary64)) #s(literal -1/6 binary64))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (.f64 phi2 phi2)))) (-.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64)))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/4 binary64) (.f64 phi2 phi2))) #s(literal -1/4 binary64))) (/.f64 (.f64 #s(literal 1/16 binary64) (.f64 (.f64 phi2 phi2) (.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (.f64 phi2 phi2))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (.f64 phi2 phi2)))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (cos.f64 phi2) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2))))))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (cos.f64 phi2) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi2 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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2))))))))))))))))
(sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin 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 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))
(sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin 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 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))
(sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin 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 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))
(sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin 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 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))
(sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin 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 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))
(sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin 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 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))
(sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin 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 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))
(sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin 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 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal -1 binary64))))))))) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (.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 lambda2 lambda1)) #s(literal -1 binary64)))))))) (-.f64 (.f64 #s(literal -1/4 binary64) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal -1 binary64)))))))) (-.f64 (.f64 #s(literal -1/4 binary64) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal -1 binary64))))))))) (.f64 phi2 (.f64 (+.f64 (.f64 #s(literal -1/12 binary64) (sin.f64 phi1)) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -1/4 binary64) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 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 phi1) (*.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))))))))))))))))
(* (sqrt (* (pow phi2 3) (sin phi1))) (sqrt -1/12))
(.f64 (sqrt.f64 (.f64 (.f64 phi2 (.f64 phi2 phi2)) (sin.f64 phi1))) (sqrt.f64 #s(literal -1/12 binary64)))
(* (pow phi2 2) (+ (* -1/8 (* (sqrt (/ 1 (* (pow phi2 3) (sin phi1)))) (/ (cos phi1) (sqrt -1/12)))) (* (sqrt (/ (sin phi1) phi2)) (sqrt -1/12))))
(.f64 (.f64 phi2 phi2) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) (.f64 phi2 (.f64 phi2 phi2))) (sin.f64 phi1))) (/.f64 (cos.f64 phi1) (sqrt.f64 #s(literal -1/12 binary64))))) (*.f64 (sqrt.f64 #s(literal -1/12 binary64)) (sqrt.f64 (/.f64 (sin.f64 phi1) phi2)))))
(* (pow phi2 2) (+ (* -1/8 (* (sqrt (/ 1 (* (pow phi2 3) (sin phi1)))) (/ (cos phi1) (sqrt -1/12)))) (+ (* 1/4 (* (sqrt (/ (sin phi1) (pow phi2 5))) (/ 1 (sqrt -1/12)))) (* (sqrt (/ (sin phi1) phi2)) (sqrt -1/12)))))
(.f64 (.f64 phi2 phi2) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) (.f64 phi2 (.f64 phi2 phi2))) (sin.f64 phi1))) (/.f64 (cos.f64 phi1) (sqrt.f64 #s(literal -1/12 binary64))))) (+.f64 (.f64 (sqrt.f64 #s(literal -1/12 binary64)) (sqrt.f64 (/.f64 (sin.f64 phi1) phi2))) (.f64 #s(literal 1/4 binary64) (/.f64 (sqrt.f64 (/.f64 (sin.f64 phi1) (pow.f64 phi2 #s(literal 5 binary64)))) (sqrt.f64 #s(literal -1/12 binary64)))))))
(* (pow phi2 2) (+ (* -1/8 (* (sqrt (/ 1 (* (pow phi2 3) (sin phi1)))) (/ (cos phi1) (sqrt -1/12)))) (+ (* 1/4 (* (sqrt (/ (sin phi1) (pow phi2 5))) (/ 1 (sqrt -1/12)))) (+ (* 1/2 (* (sqrt (/ 1 (* (pow phi2 7) (sin phi1)))) (/ (- (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))) (* 1/64 (/ (* phi2 (pow (cos phi1) 2)) (* (sin phi1) (pow (sqrt -1/12) 2))))) (sqrt -1/12)))) (* (sqrt (/ (sin phi1) phi2)) (sqrt -1/12))))))
(.f64 (.f64 phi2 phi2) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) (.f64 phi2 (.f64 phi2 phi2))) (sin.f64 phi1))) (/.f64 (cos.f64 phi1) (sqrt.f64 #s(literal -1/12 binary64))))) (+.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (sqrt.f64 (/.f64 (sin.f64 phi1) (pow.f64 phi2 #s(literal 5 binary64)))) (sqrt.f64 #s(literal -1/12 binary64)))) (+.f64 (.f64 (sqrt.f64 #s(literal -1/12 binary64)) (sqrt.f64 (/.f64 (sin.f64 phi1) phi2))) (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 7 binary64))) (sin.f64 phi1)))) (/.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))))) (.f64 #s(literal -3/16 binary64) (/.f64 (*.f64 phi2 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (sin.f64 phi1))))) (sqrt.f64 #s(literal -1/12 binary64))))))))
(* (sqrt (* (pow phi2 3) (sin phi1))) (* (sqrt -1) (sqrt 1/12)))
(.f64 (sqrt.f64 (.f64 (.f64 phi2 (.f64 phi2 phi2)) (sin.f64 phi1))) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 1/12 binary64))))
(* (pow phi2 2) (+ (* -1/8 (* (sqrt (/ 1 (* (pow phi2 3) (sin phi1)))) (/ (* (cos phi1) (sqrt -1)) (sqrt 1/12)))) (* (sqrt (/ (sin phi1) phi2)) (* (sqrt -1) (sqrt 1/12)))))
(.f64 (.f64 phi2 phi2) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) (.f64 phi2 (.f64 phi2 phi2))) (sin.f64 phi1))) (.f64 (cos.f64 phi1) (/.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 1/12 binary64)))))) (.f64 (sqrt.f64 (/.f64 (sin.f64 phi1) phi2)) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 1/12 binary64))))))
(* (pow phi2 2) (+ (* -1/8 (* (sqrt (/ 1 (* (pow phi2 3) (sin phi1)))) (/ (* (cos phi1) (sqrt -1)) (sqrt 1/12)))) (+ (* 1/4 (* (sqrt (/ (sin phi1) (pow phi2 5))) (/ (sqrt -1) (sqrt 1/12)))) (* (sqrt (/ (sin phi1) phi2)) (* (sqrt -1) (sqrt 1/12))))))
(.f64 (.f64 phi2 phi2) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) (.f64 phi2 (.f64 phi2 phi2))) (sin.f64 phi1))) (.f64 (cos.f64 phi1) (/.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 1/12 binary64)))))) (+.f64 (.f64 (sqrt.f64 (/.f64 (sin.f64 phi1) phi2)) (.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 1/12 binary64)))) (.f64 #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (/.f64 (sin.f64 phi1) (pow.f64 phi2 #s(literal 5 binary64)))) (/.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 1/12 binary64))))))))
(* (pow phi2 2) (+ (* -1 (/ (+ (* -1/2 (* (sqrt (/ 1 (* phi2 (sin phi1)))) (/ (* (sqrt -1) (- (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))) (* -1/64 (/ (* phi2 (pow (cos phi1) 2)) (* (sin phi1) (pow (sqrt 1/12) 2)))))) (sqrt 1/12)))) (* -1/4 (* (sqrt (* phi2 (sin phi1))) (/ (sqrt -1) (sqrt 1/12))))) (pow phi2 3))) (+ (* -1/8 (* (sqrt (/ 1 (* (pow phi2 3) (sin phi1)))) (/ (* (cos phi1) (sqrt -1)) (sqrt 1/12)))) (* (sqrt (/ (sin phi1) phi2)) (* (sqrt -1) (sqrt 1/12))))))
(.f64 (.f64 phi2 phi2) (-.f64 (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) (.f64 phi2 (.f64 phi2 phi2))) (sin.f64 phi1))) (.f64 (cos.f64 phi1) (/.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 1/12 binary64)))))) (.f64 (sqrt.f64 (/.f64 (sin.f64 phi1) phi2)) (.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 1/12 binary64))))) (/.f64 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 phi2 (sin.f64 phi1))))) (.f64 (sqrt.f64 #s(literal -1 binary64)) (/.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))))) (.f64 #s(literal -3/16 binary64) (/.f64 (.f64 phi2 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (sin.f64 phi1))))) (sqrt.f64 #s(literal 1/12 binary64))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (sqrt.f64 (.f64 phi2 (sin.f64 phi1))) (sqrt.f64 #s(literal -1 binary64))) (sqrt.f64 #s(literal 1/12 binary64))))) (.f64 phi2 (*.f64 phi2 phi2)))))
(sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin 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 lambda2) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))) (* -1/4 (* (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1))))))))))))))))
(+.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 (cos.f64 lambda2) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))))) (.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 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (*.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))) (* lambda1 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1))))))))))))))) (* 1/2 (* (* lambda1 (- (* -1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1))))))))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1))))))))))))))))))
(+.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 (cos.f64 lambda2) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))))) (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal -1/4 binary64) (neg.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.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/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))) (.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/16 binary64) (.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))))))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))) (* lambda1 (+ (* -1/4 (* (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1))))))))))))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1))))))))))))) (- (* -1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))))) (* 1/2 (* (* lambda1 (- (* 1/12 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/4 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* -1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin (neg lambda2)) 2))) (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1))))))))))))))))) (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1))))))))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1))))))))))))))))))))
(+.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 (cos.f64 lambda2) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))))) (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal -1/4 binary64) (neg.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))) (-.f64 (.f64 #s(literal -1/4 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda2))) (/.f64 (.f64 #s(literal 1/16 binary64) (.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))))))) (.f64 lambda1 (.f64 (+.f64 (.f64 (.f64 #s(literal 1/12 binary64) (cos.f64 phi1)) (.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (-.f64 #s(literal 0 binary64) (sin.f64 lambda2))) (-.f64 (.f64 #s(literal -1/4 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda2))) (/.f64 (.f64 #s(literal 1/16 binary64) (.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (-.f64 #s(literal 0 binary64) (sin.f64 lambda2)) #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.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/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (*.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))))))))))))))
(sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin 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 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))
(sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin 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 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))
(sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin 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 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))
(sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin 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 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))
(sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin 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 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))
(sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin 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 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))
(sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin 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 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))
(sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin 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 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))
(sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin 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 lambda1) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))) (* 1/4 (* (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1))))))))))))))))
(+.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 (cos.f64 lambda1) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (*.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))) (* lambda2 (+ (* 1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda1))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1))))))))))))))) (* 1/2 (* (* lambda2 (- (* -1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1))))))))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1))))))))))))))))))
(+.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 (cos.f64 lambda1) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.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/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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))))))))))))
(+ (sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))) (* lambda2 (+ (* 1/4 (* (* (cos phi1) (* (cos phi2) (sin lambda1))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1))))))))))))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1))))))))))))) (- (* -1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))))))) (* 1/2 (* (* lambda2 (- (* -1/12 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* 1/4 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* -1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* 1/16 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (sin lambda1) 2))) (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1))))))))))))))))) (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1))))))))))))))) (sqrt (/ 1 (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1))))))))))))))))))))
(+.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 (cos.f64 lambda1) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.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/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (*.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))))))))))))))
(sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin 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 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))
(sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin 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 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))
(sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin 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 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))
(sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin 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 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))
(sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin 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 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))
(sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin 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 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))
(sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin 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 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))
(sqrt (+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin 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 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))))))
(+ 1/2 (+ (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (* 1/2 (+ 1 (* -1/2 (pow phi2 2))))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (cos.f64 phi2) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2))))))
(+ 1/2 (+ (* 1/2 (* phi1 (* phi2 (+ 1 (* -1/6 (pow phi2 2)))))) (+ (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (* 1/2 (+ 1 (* -1/2 (pow phi2 2)))))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (cos.f64 phi2) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 phi1 phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (*.f64 phi2 phi2)))))))
(+ 1/2 (+ (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (+ (* 1/2 (+ 1 (* -1/2 (pow phi2 2)))) (* phi1 (+ (* 1/2 (* phi2 (+ 1 (* -1/6 (pow phi2 2))))) (* phi1 (+ (* -1/4 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (* 1/2 (- (* 1/4 (pow phi2 2)) 1/2)))))))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (cos.f64 phi2) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2))))) (.f64 phi1 (+.f64 (.f64 (.f64 phi2 #s(literal 1/2 binary64)) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (.f64 phi2 phi2)))) (.f64 phi1 (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64)))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/4 binary64) (*.f64 phi2 phi2))) #s(literal -1/4 binary64))))))))
(+ 1/2 (+ (* 1/2 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (+ (* 1/2 (+ 1 (* -1/2 (pow phi2 2)))) (* phi1 (+ (* 1/2 (* phi2 (+ 1 (* -1/6 (pow phi2 2))))) (* phi1 (+ (* -1/4 (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (+ (* 1/2 (* phi1 (* phi2 (- (* 1/36 (pow phi2 2)) 1/6)))) (* 1/2 (- (* 1/4 (pow phi2 2)) 1/2))))))))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (cos.f64 phi2) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2))))) (.f64 phi1 (+.f64 (.f64 (.f64 phi2 #s(literal 1/2 binary64)) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (.f64 phi2 phi2)))) (.f64 phi1 (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 phi2) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64)))) (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 phi1 phi2) (+.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/36 binary64)) #s(literal -1/6 binary64))) (+.f64 (.f64 #s(literal 1/4 binary64) (*.f64 phi2 phi2)) #s(literal -1/2 binary64))))))))))
(+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))
(+.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 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))))
(+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))
(+.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 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))))
(+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))
(+.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 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))))
(+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))
(+.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 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))))
(+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))
(+.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 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))))
(+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))
(+.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 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))))
(+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))
(+.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 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))))
(+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))
(+.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 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal -1 binary64))))) (.f64 #s(literal -1/12 binary64) (*.f64 phi2 (sin.f64 phi1)))))))))
(* -1/12 (* (pow phi2 3) (sin phi1)))
(.f64 (.f64 #s(literal -1/12 binary64) (.f64 phi2 (.f64 phi2 phi2))) (sin.f64 phi1))
(* (pow phi2 3) (+ (* -1/4 (/ (cos phi1) phi2)) (* -1/12 (sin phi1))))
(.f64 (.f64 phi2 (.f64 phi2 phi2)) (+.f64 (.f64 #s(literal -1/12 binary64) (sin.f64 phi1)) (/.f64 (*.f64 (cos.f64 phi1) #s(literal -1/4 binary64)) phi2)))
(* (pow phi2 3) (+ (* -1/4 (/ (cos phi1) phi2)) (+ (* -1/12 (sin phi1)) (* 1/2 (/ (sin phi1) (pow phi2 2))))))
(.f64 (.f64 phi2 (.f64 phi2 phi2)) (+.f64 (/.f64 (.f64 (cos.f64 phi1) #s(literal -1/4 binary64)) phi2) (+.f64 (.f64 #s(literal -1/12 binary64) (sin.f64 phi1)) (/.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 phi1)) (*.f64 phi2 phi2)))))
(* (pow phi2 3) (+ (* -1/4 (/ (cos phi1) phi2)) (+ (* -1/12 (sin phi1)) (+ (* 1/2 (/ (cos phi1) (pow phi2 3))) (+ (* 1/2 (/ (sin phi1) (pow phi2 2))) (+ (* 1/2 (/ (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1))) (pow phi2 3))) (* 1/2 (/ 1 (pow phi2 3)))))))))
(.f64 (.f64 phi2 (.f64 phi2 phi2)) (+.f64 (/.f64 (.f64 (cos.f64 phi1) #s(literal -1/4 binary64)) phi2) (+.f64 (+.f64 (.f64 #s(literal -1/12 binary64) (sin.f64 phi1)) (/.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (.f64 phi2 (.f64 phi2 phi2)))) (+.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 phi1)) (.f64 phi2 phi2)) (+.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64)))) (.f64 phi2 (.f64 phi2 phi2))) (/.f64 #s(literal 1/2 binary64) (.f64 phi2 (*.f64 phi2 phi2))))))))
(* -1/12 (* (pow phi2 3) (sin phi1)))
(.f64 (.f64 #s(literal -1/12 binary64) (.f64 phi2 (.f64 phi2 phi2))) (sin.f64 phi1))
(* -1 (* (pow phi2 3) (+ (* 1/12 (sin phi1)) (* 1/4 (/ (cos phi1) phi2)))))
(-.f64 #s(literal 0 binary64) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (+.f64 (.f64 (sin.f64 phi1) #s(literal 1/12 binary64)) (/.f64 (*.f64 (cos.f64 phi1) #s(literal 1/4 binary64)) phi2))))
(* -1 (* (pow phi2 3) (+ (* -1 (/ (+ (* -1/4 (cos phi1)) (* 1/2 (/ (sin phi1) phi2))) phi2)) (* 1/12 (sin phi1)))))
(.f64 (-.f64 (.f64 (sin.f64 phi1) #s(literal 1/12 binary64)) (/.f64 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/4 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 phi1) phi2))) phi2)) (.f64 #s(literal -1 binary64) (.f64 phi2 (*.f64 phi2 phi2))))
(* -1 (* (pow phi2 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))))) phi2)) (* -1/2 (sin phi1))) phi2)) (* -1/4 (cos phi1))) phi2)) (* 1/12 (sin phi1)))))
(.f64 (-.f64 (.f64 (sin.f64 phi1) #s(literal 1/12 binary64)) (/.f64 (-.f64 (.f64 (cos.f64 phi1) #s(literal -1/4 binary64)) (/.f64 (-.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 phi1)) (/.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64)))))) phi2)) phi2)) phi2)) (.f64 #s(literal -1 binary64) (.f64 phi2 (.f64 phi2 phi2))))
(+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))))
(+ 1/2 (+ (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1))))))))))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.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/2 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) (* (cos phi2) (- (cos (neg lambda2)) 1)))) (+ (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1))))))))) (* 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))) (.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 (.f64 #s(literal -1/4 binary64) lambda1) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 lambda2)))))))
(+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (neg lambda2)) 1)))) (+ (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1))))))))) (* 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda2) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))) (.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 #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) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))
(+.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 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))))
(+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))
(+.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 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))))
(+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))
(+.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 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))))
(+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))
(+.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 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))))
(+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))
(+.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 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))))
(+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))
(+.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 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))))
(+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))
(+.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 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))))
(+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (* -1 (+ lambda2 (* -1 lambda1)))) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))
(+.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 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))))
(+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))))
(+ 1/2 (+ (* 1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1))))))))))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.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/2 binary64) (.f64 (.f64 lambda2 (cos.f64 phi1)) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))))
(+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos lambda1) 1)))) (+ (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1))))))))) (* 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 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) (* (cos phi2) (- (cos lambda1) 1)))) (+ (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1))))))))) (* 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 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 #s(literal -1/12 binary64) (.f64 (.f64 lambda2 (cos.f64 phi1)) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))))))))
(+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))
(+.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 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))))
(+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))
(+.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 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))))
(+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))
(+.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 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))))
(+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (- lambda1 lambda2)) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))
(+.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 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))))
(+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))
(+.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 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))))
(+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))
(+.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 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))))
(+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))
(+.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 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))))
(+ 1/2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (- (cos (+ lambda1 (* -1 lambda2))) 1)))) (* 1/2 (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))))))
(+.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 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (+ (* -1/8 (* (pow phi1 2) (sin (* -1/2 phi2)))) (* 1/2 (* phi1 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (+.f64 (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 (.f64 #s(literal -1/8 binary64) (.f64 phi1 phi1)) (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))))) (.f64 (.f64 phi1 #s(literal 1/2 binary64)) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (+ (* -1/8 (* (pow phi1 2) (sin (* -1/2 phi2)))) (* 1/2 (* phi1 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (+.f64 (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 (.f64 #s(literal -1/8 binary64) (.f64 phi1 phi1)) (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))))) (.f64 (.f64 phi1 #s(literal 1/2 binary64)) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (+ (* -1/8 (* (pow phi1 2) (sin (* -1/2 phi2)))) (* 1/2 (* phi1 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (+.f64 (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 (.f64 #s(literal -1/8 binary64) (.f64 phi1 phi1)) (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))))) (.f64 (.f64 phi1 #s(literal 1/2 binary64)) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (+ (* -1/8 (* (pow phi1 2) (sin (* -1/2 phi2)))) (* 1/2 (* phi1 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (+.f64 (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 (.f64 #s(literal -1/8 binary64) (.f64 phi1 phi1)) (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))))) (.f64 (.f64 phi1 #s(literal 1/2 binary64)) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 1 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (pow (sin (* -1/2 phi2)) 2))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (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 lambda1))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.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 lambda2 lambda1))) #s(literal 2 binary64)))) (pow.f64 (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 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 1 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (pow (sin (* -1/2 phi2)) 2))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (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 lambda1))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.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 lambda2 lambda1))) #s(literal 2 binary64)))) (pow.f64 (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 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 1 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (pow (sin (* -1/2 phi2)) 2))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (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 lambda1))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.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 lambda2 lambda1))) #s(literal 2 binary64)))) (pow.f64 (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 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 1 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (pow (sin (* -1/2 phi2)) 2))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (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 lambda1))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.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 lambda2 lambda1))) #s(literal 2 binary64)))) (pow.f64 (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)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 1 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (pow (sin (* -1/2 phi2)) 2))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 1 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (pow (sin (* -1/2 phi2)) 2))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 1 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (pow (sin (* -1/2 phi2)) 2))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 1 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (pow (sin (* -1/2 phi2)) 2))))))))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 #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 (+.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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 #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 (+.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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 #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 (+.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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 #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 (+.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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 #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 (+.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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 #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 (+.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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 #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 (+.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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 #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 (+.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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 #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 (+.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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 #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 (+.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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 #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 (+.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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 #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 (+.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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 #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 (+.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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 #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 (+.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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 #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 (+.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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 #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 (+.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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (+ (* -1/8 (* (pow phi1 2) (sin (* -1/2 phi2)))) (* 1/2 (* phi1 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 #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 (+.f64 (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 (.f64 #s(literal -1/8 binary64) (.f64 phi1 phi1)) (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))))) (.f64 (.f64 phi1 #s(literal 1/2 binary64)) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (+ (* -1/8 (* (pow phi1 2) (sin (* -1/2 phi2)))) (* 1/2 (* phi1 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 #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 (+.f64 (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 (.f64 #s(literal -1/8 binary64) (.f64 phi1 phi1)) (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))))) (.f64 (.f64 phi1 #s(literal 1/2 binary64)) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (+ (* -1/8 (* (pow phi1 2) (sin (* -1/2 phi2)))) (* 1/2 (* phi1 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 #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 (+.f64 (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 (.f64 #s(literal -1/8 binary64) (.f64 phi1 phi1)) (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))))) (.f64 (.f64 phi1 #s(literal 1/2 binary64)) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (+ (* -1/8 (* (pow phi1 2) (sin (* -1/2 phi2)))) (* 1/2 (* phi1 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 #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 (+.f64 (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 (.f64 #s(literal -1/8 binary64) (.f64 phi1 phi1)) (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))))) (.f64 (.f64 phi1 #s(literal 1/2 binary64)) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 #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 (+.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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 #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 (+.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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 #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 (+.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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 #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 (+.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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 #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 (+.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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 #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 (+.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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 #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 (+.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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 #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 (+.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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 #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 (+.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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 #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 (+.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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 #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 (+.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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 #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 (+.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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 1 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (pow (sin (* -1/2 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 lambda1))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.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 lambda2 lambda1))) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 1 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (pow (sin (* -1/2 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 lambda1))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.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 lambda2 lambda1))) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 1 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (pow (sin (* -1/2 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 lambda1))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.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 lambda2 lambda1))) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 1 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (pow (sin (* -1/2 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 lambda1))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.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 lambda2 lambda1))) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 #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 (+.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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 #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 (+.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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 #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 (+.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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 #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 (+.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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 #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 (+.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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 #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 (+.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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 #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 (+.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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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 #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 (+.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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 1 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (pow (sin (* -1/2 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 (+.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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 1 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (pow (sin (* -1/2 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 (+.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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 1 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (pow (sin (* -1/2 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 (+.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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(* 2 (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 1 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (pow (sin (* -1/2 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 (+.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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (+ (* -1/8 (* (pow phi1 2) (sin (* -1/2 phi2)))) (* 1/2 (* phi1 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (+.f64 (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 (.f64 #s(literal -1/8 binary64) (.f64 phi1 phi1)) (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))))) (.f64 (.f64 phi1 #s(literal 1/2 binary64)) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (+ (* -1/8 (* (pow phi1 2) (sin (* -1/2 phi2)))) (* 1/2 (* phi1 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (+.f64 (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 (.f64 #s(literal -1/8 binary64) (.f64 phi1 phi1)) (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))))) (.f64 (.f64 phi1 #s(literal 1/2 binary64)) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (+ (* -1/8 (* (pow phi1 2) (sin (* -1/2 phi2)))) (* 1/2 (* phi1 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (+.f64 (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 (.f64 #s(literal -1/8 binary64) (.f64 phi1 phi1)) (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))))) (.f64 (.f64 phi1 #s(literal 1/2 binary64)) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (+ (* -1/8 (* (pow phi1 2) (sin (* -1/2 phi2)))) (* 1/2 (* phi1 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (+.f64 (+.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 (.f64 #s(literal -1/8 binary64) (.f64 phi1 phi1)) (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))))) (.f64 (.f64 phi1 #s(literal 1/2 binary64)) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 1 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (pow (sin (* -1/2 phi2)) 2))))))
(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 lambda1))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.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 lambda2 lambda1))) #s(literal 2 binary64)))) (pow.f64 (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 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 1 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (pow (sin (* -1/2 phi2)) 2))))))
(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 lambda1))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.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 lambda2 lambda1))) #s(literal 2 binary64)))) (pow.f64 (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 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 1 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (pow (sin (* -1/2 phi2)) 2))))))
(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 lambda1))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.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 lambda2 lambda1))) #s(literal 2 binary64)))) (pow.f64 (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 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 1 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)) (pow (sin (* -1/2 phi2)) 2))))))
(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 lambda1))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.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 lambda2 lambda1))) #s(literal 2 binary64)))) (pow.f64 (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)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 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))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 1 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (pow (sin (* -1/2 phi2)) 2))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 1 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (pow (sin (* -1/2 phi2)) 2))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 1 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (pow (sin (* -1/2 phi2)) 2))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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)))))))
(atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))) (sqrt (- 1 (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)) (pow (sin (* -1/2 phi2)) 2))))))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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)))))))
(sqrt (+ (* 1/4 (pow phi1 2)) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))))
(sqrt.f64 (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 phi1 phi1)) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))
(+ (sqrt (+ (* 1/4 (pow phi1 2)) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (* 1/2 (* (* phi1 (* phi2 (- (* 1/16 (pow phi1 2)) 1/2))) (sqrt (/ 1 (+ (* 1/4 (pow phi1 2)) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))))))))
(+.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 phi1 phi1)) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))) (.f64 (.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 phi2 (+.f64 (.f64 #s(literal 1/16 binary64) (.f64 phi1 phi1)) #s(literal -1/2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 phi1 phi1)) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))
(+ (sqrt (+ (* 1/4 (pow phi1 2)) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (* phi2 (+ (* 1/2 (* (* phi1 (- (* 1/16 (pow phi1 2)) 1/2)) (sqrt (/ 1 (+ (* 1/4 (pow phi1 2)) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))))))) (* 1/2 (* (* phi2 (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/16 (pow phi1 2)) (pow (- (* 1/16 (pow phi1 2)) 1/2) 2))) (* 1/4 (/ (* (pow phi1 2) (pow (- (* 1/16 (pow phi1 2)) 1/2) 2)) (+ (* 1/4 (pow phi1 2)) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))))))) (sqrt (/ 1 (+ (* 1/4 (pow phi1 2)) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))))))))))
(+.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 phi1 phi1)) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))) (.f64 phi2 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 phi1 phi1)) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (.f64 phi1 (+.f64 (.f64 #s(literal 1/16 binary64) (.f64 phi1 phi1)) #s(literal -1/2 binary64)))) (.f64 phi2 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 phi1 phi1)) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (-.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/16 binary64)) (.f64 (+.f64 (.f64 #s(literal 1/16 binary64) (.f64 phi1 phi1)) #s(literal -1/2 binary64)) (+.f64 (.f64 #s(literal 1/16 binary64) (.f64 phi1 phi1)) #s(literal -1/2 binary64))))) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 phi1 phi1) (.f64 (+.f64 (.f64 #s(literal 1/16 binary64) (.f64 phi1 phi1)) #s(literal -1/2 binary64)) (+.f64 (.f64 #s(literal 1/16 binary64) (.f64 phi1 phi1)) #s(literal -1/2 binary64))))) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 phi1 phi1)) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))))
(+ (sqrt (+ (* 1/4 (pow phi1 2)) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (* phi2 (+ (* 1/2 (* (* phi1 (- (* 1/16 (pow phi1 2)) 1/2)) (sqrt (/ 1 (+ (* 1/4 (pow phi1 2)) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* 1/4 (pow phi1 2)) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))))) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/16 (pow phi1 2)) (pow (- (* 1/16 (pow phi1 2)) 1/2) 2))) (* 1/4 (/ (* (pow phi1 2) (pow (- (* 1/16 (pow phi1 2)) 1/2) 2)) (+ (* 1/4 (pow phi1 2)) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))))))) (* 1/2 (* (* phi2 (- (+ (* -1/8 (* phi1 (- (* 1/16 (pow phi1 2)) 1/2))) (* phi1 (+ 1/48 (* -1/384 (pow phi1 2))))) (* 1/2 (/ (* phi1 (* (- (* 1/16 (pow phi1 2)) 1/2) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/16 (pow phi1 2)) (pow (- (* 1/16 (pow phi1 2)) 1/2) 2))) (* 1/4 (/ (* (pow phi1 2) (pow (- (* 1/16 (pow phi1 2)) 1/2) 2)) (+ (* 1/4 (pow phi1 2)) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))))))) (+ (* 1/4 (pow phi1 2)) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))))))) (sqrt (/ 1 (+ (* 1/4 (pow phi1 2)) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))))))))))))
(+.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 phi1 phi1)) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))) (.f64 phi2 (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (.f64 phi1 (+.f64 (.f64 #s(literal 1/16 binary64) (.f64 phi1 phi1)) #s(literal -1/2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 phi1 phi1)) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))) (.f64 phi2 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 phi1 phi1)) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (-.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/16 binary64)) (.f64 (+.f64 (.f64 #s(literal 1/16 binary64) (.f64 phi1 phi1)) #s(literal -1/2 binary64)) (+.f64 (.f64 #s(literal 1/16 binary64) (.f64 phi1 phi1)) #s(literal -1/2 binary64))))) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 phi1 phi1) (.f64 (+.f64 (.f64 #s(literal 1/16 binary64) (.f64 phi1 phi1)) #s(literal -1/2 binary64)) (+.f64 (.f64 #s(literal 1/16 binary64) (.f64 phi1 phi1)) #s(literal -1/2 binary64))))) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 phi1 phi1)) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))) (.f64 phi2 (.f64 (+.f64 (+.f64 (.f64 (.f64 #s(literal -1/8 binary64) phi1) (+.f64 (.f64 #s(literal 1/16 binary64) (.f64 phi1 phi1)) #s(literal -1/2 binary64))) (.f64 phi1 (+.f64 #s(literal 1/48 binary64) (.f64 (.f64 phi1 phi1) #s(literal -1/384 binary64))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 phi1 (+.f64 (.f64 #s(literal 1/16 binary64) (.f64 phi1 phi1)) #s(literal -1/2 binary64))) (-.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/16 binary64)) (.f64 (+.f64 (.f64 #s(literal 1/16 binary64) (.f64 phi1 phi1)) #s(literal -1/2 binary64)) (+.f64 (.f64 #s(literal 1/16 binary64) (.f64 phi1 phi1)) #s(literal -1/2 binary64))))) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 phi1 phi1) (.f64 (+.f64 (.f64 #s(literal 1/16 binary64) (.f64 phi1 phi1)) #s(literal -1/2 binary64)) (+.f64 (.f64 #s(literal 1/16 binary64) (.f64 phi1 phi1)) #s(literal -1/2 binary64))))) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 phi1 phi1)) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 phi1 phi1)) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 phi1 phi1)) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -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 (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))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -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 (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))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -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 (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))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -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 (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))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -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 (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))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -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 (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))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -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 (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))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -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 (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))))
(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 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 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 #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 (.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/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 #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 (.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 #s(literal -1/8 binary64) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))) (-.f64 (+.f64 (.f64 (.f64 (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 #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 (.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)))))))))))))
(* 1/8 (* (pow phi1 2) (sin (* -1/2 phi2))))
(.f64 (.f64 #s(literal 1/8 binary64) (.f64 phi1 phi1)) (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))))
(* (pow phi1 2) (+ (* -1/2 (/ (cos (* -1/2 phi2)) phi1)) (* 1/8 (sin (* -1/2 phi2)))))
(.f64 (.f64 phi1 phi1) (+.f64 (/.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))) phi1) (.f64 #s(literal 1/8 binary64) (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))))))
(* (pow phi1 2) (+ (* -1 (/ (sin (* -1/2 phi2)) (pow phi1 2))) (+ (* -1/2 (/ (cos (* -1/2 phi2)) phi1)) (* 1/8 (sin (* -1/2 phi2))))))
(.f64 (.f64 phi1 phi1) (-.f64 (+.f64 (/.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))) phi1) (.f64 #s(literal 1/8 binary64) (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))))) (/.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 phi1))))
(* (pow phi1 2) (+ (* -1 (/ (sin (* -1/2 phi2)) (pow phi1 2))) (+ (* -1/2 (/ (cos (* -1/2 phi2)) phi1)) (+ (* 1/8 (sin (* -1/2 phi2))) (* 4 (/ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (* (pow phi1 4) (sin (* -1/2 phi2)))))))))
(.f64 (.f64 phi1 phi1) (-.f64 (+.f64 (+.f64 (/.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))) phi1) (.f64 #s(literal 1/8 binary64) (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))))) (/.f64 (.f64 #s(literal 4 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (pow.f64 phi1 #s(literal 4 binary64))))) (/.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 phi1))))
(* 1/8 (* (pow phi1 2) (sin (* -1/2 phi2))))
(.f64 (.f64 #s(literal 1/8 binary64) (.f64 phi1 phi1)) (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))))
(* (pow phi1 2) (+ (* -1/2 (/ (cos (* -1/2 phi2)) phi1)) (* 1/8 (sin (* -1/2 phi2)))))
(.f64 (.f64 phi1 phi1) (+.f64 (/.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))) phi1) (.f64 #s(literal 1/8 binary64) (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))))))
(* (pow phi1 2) (+ (* -1 (/ (+ (* 1/2 (cos (* -1/2 phi2))) (/ (sin (* -1/2 phi2)) phi1)) phi1)) (* 1/8 (sin (* -1/2 phi2)))))
(.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/8 binary64) (sin.f64 (.f64 phi2 #s(literal -1/2 binary64)))) (/.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))) (/.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) phi1)) phi1)))
(* (pow phi1 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (sin (* -1/2 phi2))) (* 4 (/ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (* (pow phi1 2) (sin (* -1/2 phi2)))))) phi1)) (* 1/2 (cos (* -1/2 phi2)))) phi1)) (* 1/8 (sin (* -1/2 phi2)))))
(.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/8 binary64) (sin.f64 (.f64 phi2 #s(literal -1/2 binary64)))) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))) (/.f64 (-.f64 (/.f64 (.f64 #s(literal 4 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (.f64 phi1 phi1))) (sin.f64 (.f64 phi2 #s(literal -1/2 binary64)))) phi1)) phi1)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -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) lambda2)) #s(literal 2 binary64))) (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))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -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 (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2)))))))
(+.f64 (sqrt.f64 (+.f64 (.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 (+.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 #s(literal 1/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)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.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 (+.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)))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -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 (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -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 (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2)))))))))
(+.f64 (sqrt.f64 (+.f64 (.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 (+.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 lambda1 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 lambda1 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.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 (+.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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (+.f64 (.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 (+.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 (.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)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.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 (+.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))))))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -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 (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -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 (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -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 (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2)))))))))))
(+.f64 (sqrt.f64 (+.f64 (.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 (+.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 lambda1 (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (.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))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.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 (+.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 lambda1 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.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 (+.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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (+.f64 (.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 (+.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 lambda1 (.f64 (+.f64 (.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))) (.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) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))) (+.f64 (.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 (+.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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (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)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.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 (+.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)))))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -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 (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))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -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 (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))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -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 (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))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -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 (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))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -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 lambda2 lambda1))) #s(literal 2 binary64))) (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))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -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 lambda2 lambda1))) #s(literal 2 binary64))) (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))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -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 lambda2 lambda1))) #s(literal 2 binary64))) (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))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -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 lambda2 lambda1))) #s(literal 2 binary64))) (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))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2)))
(sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (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))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -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 (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2)))))))
(+.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (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 #s(literal -1/2 binary64) (.f64 (.f64 lambda2 (cos.f64 phi1)) (.f64 (.f64 (cos.f64 phi2) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (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)))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -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 (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -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 (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2)))))))))
(+.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (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 lambda2 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (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 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (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))))))))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -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 (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -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 (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -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 (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) 2)))))))))))
(+.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (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 lambda2 (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (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 lambda2 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (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 lambda2 (.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (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)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (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)))))))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -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 (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))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -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 (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))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -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 (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))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -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 (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))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -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 (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))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -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 (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))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -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 (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))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -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 (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))))
1
#s(literal 1 binary64)
(+ 1 (* -1/2 (pow phi1 2)))
(+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1)))
(+ 1 (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2)))
(+.f64 #s(literal 1 binary64) (.f64 (.f64 phi1 phi1) (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal -1/2 binary64))))
(+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2)))
(+.f64 #s(literal 1 binary64) (.f64 (.f64 phi1 phi1) (+.f64 (.f64 (.f64 phi1 phi1) (+.f64 #s(literal 1/24 binary64) (.f64 (.f64 phi1 phi1) #s(literal -1/720 binary64)))) #s(literal -1/2 binary64))))
(cos phi1)
(cos.f64 phi1)
(cos phi1)
(cos.f64 phi1)
(cos phi1)
(cos.f64 phi1)
(cos phi1)
(cos.f64 phi1)
(cos phi1)
(cos.f64 phi1)
(cos phi1)
(cos.f64 phi1)
(cos phi1)
(cos.f64 phi1)
(cos phi1)
(cos.f64 phi1)
1
#s(literal 1 binary64)
(+ 1 (* -1/2 (pow phi2 2)))
(+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2)))
(+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2)))
(+.f64 #s(literal 1 binary64) (.f64 (.f64 phi2 phi2) (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi2 phi2)) #s(literal -1/2 binary64))))
(+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2)))
(+.f64 #s(literal 1 binary64) (.f64 (.f64 phi2 phi2) (+.f64 (.f64 (.f64 phi2 phi2) (+.f64 #s(literal 1/24 binary64) (.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64)))) #s(literal -1/2 binary64))))
(cos phi2)
(cos.f64 phi2)
(cos phi2)
(cos.f64 phi2)
(cos phi2)
(cos.f64 phi2)
(cos phi2)
(cos.f64 phi2)
(cos phi2)
(cos.f64 phi2)
(cos phi2)
(cos.f64 phi2)
(cos phi2)
(cos.f64 phi2)
(cos phi2)
(cos.f64 phi2)
1
#s(literal 1 binary64)
(+ 1 (* -1/8 (pow phi1 2)))
(+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/8 binary64) (.f64 phi1 phi1)))
(+ 1 (* (pow phi1 2) (- (* 1/384 (pow phi1 2)) 1/8)))
(+.f64 #s(literal 1 binary64) (.f64 (.f64 phi1 phi1) (+.f64 (.f64 (.f64 phi1 phi1) #s(literal 1/384 binary64)) #s(literal -1/8 binary64))))
(+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/384 (* -1/46080 (pow phi1 2)))) 1/8)))
(+.f64 #s(literal 1 binary64) (.f64 (.f64 phi1 phi1) (+.f64 (.f64 (.f64 phi1 phi1) (+.f64 #s(literal 1/384 binary64) (.f64 (.f64 phi1 phi1) #s(literal -1/46080 binary64)))) #s(literal -1/8 binary64))))
(cos (* 1/2 phi1))
(cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(cos (* 1/2 phi1))
(cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(cos (* 1/2 phi1))
(cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(cos (* 1/2 phi1))
(cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(cos (* 1/2 phi1))
(cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(cos (* 1/2 phi1))
(cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(cos (* 1/2 phi1))
(cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(cos (* 1/2 phi1))
(cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
1
#s(literal 1 binary64)
(+ 1 (* -1/8 (pow phi2 2)))
(+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/8 binary64) (.f64 phi2 phi2)))
(+ 1 (* (pow phi2 2) (- (* 1/384 (pow phi2 2)) 1/8)))
(+.f64 #s(literal 1 binary64) (.f64 (.f64 phi2 phi2) (+.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/384 binary64)) #s(literal -1/8 binary64))))
(+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/384 (* -1/46080 (pow phi2 2)))) 1/8)))
(+.f64 #s(literal 1 binary64) (.f64 (.f64 phi2 phi2) (+.f64 (.f64 (.f64 phi2 phi2) (+.f64 #s(literal 1/384 binary64) (.f64 (.f64 phi2 phi2) #s(literal -1/46080 binary64)))) #s(literal -1/8 binary64))))
(cos (* 1/2 phi2))
(cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))
(cos (* 1/2 phi2))
(cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))
(cos (* 1/2 phi2))
(cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))
(cos (* 1/2 phi2))
(cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))
(cos (* 1/2 phi2))
(cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))
(cos (* 1/2 phi2))
(cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))
(cos (* 1/2 phi2))
(cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))
(cos (* 1/2 phi2))
(cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))
(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 (cos.f64 phi2) #s(literal -1/2 binary64)) (.f64 (*.f64 #s(literal 1/6 binary64) phi1) (-.f64 #s(literal 0 binary64) (sin.f64 phi2))))) (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 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (*.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))
(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 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 (cos.f64 phi2) #s(literal -1/2 binary64)) (.f64 (*.f64 #s(literal 1/6 binary64) phi1) (-.f64 #s(literal 0 binary64) (sin.f64 phi2))))) (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 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (*.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))
(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))
(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 lambda2 lambda1))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (neg (+ lambda2 (* -1 lambda1))))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (neg (+ lambda2 (* -1 lambda1))))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (neg (+ lambda2 (* -1 lambda1))))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (neg (+ 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 (*.f64 #s(literal -1/2 binary64) 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 lambda2 lambda1))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (+ lambda1 (* -1 lambda2)))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (+ lambda1 (* -1 lambda2)))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (+ lambda1 (* -1 lambda2)))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (+ lambda1 (* -1 lambda2)))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (* -2 lambda2))
(cos.f64 (*.f64 lambda2 #s(literal -2 binary64)))
(+ (cos (* -2 lambda2)) (* -2 (* lambda1 (sin (* -2 lambda2)))))
(+.f64 (cos.f64 (.f64 lambda2 #s(literal -2 binary64))) (.f64 (.f64 #s(literal -2 binary64) lambda1) (sin.f64 (.f64 lambda2 #s(literal -2 binary64)))))
(+ (cos (* -2 lambda2)) (* lambda1 (- (* -2 (* lambda1 (cos (* -2 lambda2)))) (* 2 (sin (* -2 lambda2))))))
(+.f64 (cos.f64 (.f64 lambda2 #s(literal -2 binary64))) (.f64 lambda1 (+.f64 (.f64 (.f64 #s(literal -2 binary64) lambda1) (cos.f64 (.f64 lambda2 #s(literal -2 binary64)))) (.f64 #s(literal -2 binary64) (sin.f64 (*.f64 lambda2 #s(literal -2 binary64)))))))
(+ (cos (* -2 lambda2)) (* lambda1 (- (* lambda1 (+ (* -2 (cos (* -2 lambda2))) (* 4/3 (* lambda1 (sin (* -2 lambda2)))))) (* 2 (sin (* -2 lambda2))))))
(+.f64 (cos.f64 (.f64 lambda2 #s(literal -2 binary64))) (.f64 lambda1 (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -2 binary64) (cos.f64 (.f64 lambda2 #s(literal -2 binary64)))) (.f64 (.f64 #s(literal 4/3 binary64) lambda1) (sin.f64 (.f64 lambda2 #s(literal -2 binary64)))))) (.f64 #s(literal -2 binary64) (sin.f64 (.f64 lambda2 #s(literal -2 binary64)))))))
(cos (* 2 (- lambda1 lambda2)))
(cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))
(cos (* 2 (- lambda1 lambda2)))
(cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))
(cos (* 2 (- lambda1 lambda2)))
(cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))
(cos (* 2 (- lambda1 lambda2)))
(cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))
(cos (* -2 (+ lambda2 (* -1 lambda1))))
(cos.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -2 binary64)))
(cos (* -2 (+ lambda2 (* -1 lambda1))))
(cos.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -2 binary64)))
(cos (* -2 (+ lambda2 (* -1 lambda1))))
(cos.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -2 binary64)))
(cos (* -2 (+ lambda2 (* -1 lambda1))))
(cos.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -2 binary64)))
(cos (* 2 lambda1))
(cos.f64 (*.f64 #s(literal 2 binary64) lambda1))
(+ (cos (* 2 lambda1)) (* 2 (* lambda2 (sin (* 2 lambda1)))))
(+.f64 (cos.f64 (.f64 #s(literal 2 binary64) lambda1)) (.f64 (.f64 #s(literal 2 binary64) lambda2) (sin.f64 (.f64 #s(literal 2 binary64) lambda1))))
(+ (cos (* 2 lambda1)) (* lambda2 (- (* -2 (* lambda2 (cos (* 2 lambda1)))) (* -2 (sin (* 2 lambda1))))))
(+.f64 (cos.f64 (.f64 #s(literal 2 binary64) lambda1)) (.f64 lambda2 (.f64 #s(literal -2 binary64) (-.f64 (.f64 lambda2 (cos.f64 (.f64 #s(literal 2 binary64) lambda1))) (sin.f64 (.f64 #s(literal 2 binary64) lambda1))))))
(+ (cos (* 2 lambda1)) (* lambda2 (- (* lambda2 (+ (* -2 (cos (* 2 lambda1))) (* -4/3 (* lambda2 (sin (* 2 lambda1)))))) (* -2 (sin (* 2 lambda1))))))
(+.f64 (cos.f64 (.f64 #s(literal 2 binary64) lambda1)) (.f64 lambda2 (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) lambda1))) (.f64 (.f64 #s(literal -4/3 binary64) lambda2) (sin.f64 (.f64 #s(literal 2 binary64) lambda1))))) (.f64 #s(literal 2 binary64) (sin.f64 (.f64 #s(literal 2 binary64) lambda1))))))
(cos (* 2 (- lambda1 lambda2)))
(cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))
(cos (* 2 (- lambda1 lambda2)))
(cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))
(cos (* 2 (- lambda1 lambda2)))
(cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))
(cos (* 2 (- lambda1 lambda2)))
(cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))
(cos (* 2 (+ lambda1 (* -1 lambda2))))
(cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))
(cos (* 2 (+ lambda1 (* -1 lambda2))))
(cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))
(cos (* 2 (+ lambda1 (* -1 lambda2))))
(cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))
(cos (* 2 (+ lambda1 (* -1 lambda2))))
(cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))
(cos (neg phi2))
(cos.f64 phi2)
(+ (cos (neg phi2)) (* -1 (* phi1 (sin (neg phi2)))))
(+.f64 (cos.f64 phi2) (*.f64 phi1 (sin.f64 phi2)))
(+ (cos (neg phi2)) (* phi1 (- (* -1/2 (* phi1 (cos (neg phi2)))) (sin (neg phi2)))))
(+.f64 (cos.f64 phi2) (.f64 phi1 (+.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 (cos.f64 phi2))) (sin.f64 phi2))))
(+ (cos (neg phi2)) (* phi1 (- (* phi1 (+ (* -1/2 (cos (neg phi2))) (* 1/6 (* phi1 (sin (neg phi2)))))) (sin (neg phi2)))))
(+.f64 (cos.f64 phi2) (.f64 phi1 (+.f64 (.f64 phi1 (+.f64 (.f64 (cos.f64 phi2) #s(literal -1/2 binary64)) (.f64 (*.f64 #s(literal 1/6 binary64) phi1) (-.f64 #s(literal 0 binary64) (sin.f64 phi2))))) (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 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (*.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64)))))))
(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
#s(literal 1 binary64)
(+ 1 (* -1/8 (pow phi2 2)))
(+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/8 binary64) (.f64 phi2 phi2)))
(+ 1 (* (pow phi2 2) (- (* 1/384 (pow phi2 2)) 1/8)))
(+.f64 #s(literal 1 binary64) (.f64 (.f64 phi2 phi2) (+.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/384 binary64)) #s(literal -1/8 binary64))))
(+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/384 (* -1/46080 (pow phi2 2)))) 1/8)))
(+.f64 #s(literal 1 binary64) (.f64 (.f64 phi2 phi2) (+.f64 (.f64 (.f64 phi2 phi2) (+.f64 #s(literal 1/384 binary64) (.f64 (.f64 phi2 phi2) #s(literal -1/46080 binary64)))) #s(literal -1/8 binary64))))
(cos (* -1/2 phi2))
(cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))
(cos (* -1/2 phi2))
(cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))
(cos (* -1/2 phi2))
(cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))
(cos (* -1/2 phi2))
(cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))
(cos (* -1/2 phi2))
(cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))
(cos (* -1/2 phi2))
(cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))
(cos (* -1/2 phi2))
(cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))
(cos (* -1/2 phi2))
(cos.f64 (*.f64 phi2 #s(literal -1/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/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 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/2 (cos (* 1/2 lambda1))) (* -1/8 (* lambda2 (sin (* 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 (.f64 #s(literal -1/8 binary64) lambda2) (sin.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 #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)))

eval425.0ms (0.9%)

Compiler: Compiled 137392 to 4332 computations (96.8% saved)

prune1.2s (2.6%)

Pruning

169 alts after pruning (169 fresh and 0 done)

	Pruned	Kept	Total
New	1720	51	1771
Fresh	35	118	153
Picked	5	0	5
Done	0	0	0
Total	1760	169	1929

Accuracy

81.2%

Counts

1929 → 169

Alt Table

Click to see full alt table

Status	Accuracy	Program
	57.5%	(.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64))) #s(literal 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)))
	57.1%	(.f64 (atan2.f64 (pow.f64 (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (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)))
	38.4%	(.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 #s(literal 1/4 binary64) (.f64 (.f64 lambda1 (.f64 (.f64 (cos.f64 phi1) (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.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	57.3%	(.f64 (atan2.f64 (.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/4 binary64)) (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 1/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)))
	57.3%	(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	57.4%	(.f64 (atan2.f64 (sqrt.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 6 binary64))) (+.f64 (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1/2 binary64) (.f64 #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))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	42.6%	(.f64 (atan2.f64 (sqrt.f64 (/.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))))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	57.6%	(.f64 (atan2.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 4 binary64)) (.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (-.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64)))))) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 6 binary64)) (pow.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 phi1) (/.f64 (cos.f64 phi2) #s(literal 2 binary64)))) #s(literal 3 binary64)))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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.8%	(.f64 (atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 phi2 (.f64 #s(literal -1/6 binary64) (sin.f64 phi1))) (.f64 (cos.f64 phi1) #s(literal -1/2 binary64))))))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
	48.7%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	58.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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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.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.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 (-.f64 lambda1 lambda2) #s(literal -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.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 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)))
	47.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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	43.2%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 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)))
	47.5%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))) (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	44.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 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	57.1%	(.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)))
	57.0%	(.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)))
	37.6%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.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)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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.7%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.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) (/.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.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)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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.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) (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi2 phi2) (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi2 phi2)) #s(literal -1/2 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))))))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (.f64 phi2 (+.f64 (.f64 (.f64 #s(literal -1/6 binary64) phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) #s(literal -1/2 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)))
	43.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) (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi2 phi2) (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi2 phi2)) #s(literal -1/2 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))))))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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.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) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2)))) (/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.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)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	37.7%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (+.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))) (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.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)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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.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 (+.f64 #s(literal 1 binary64) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (sin.f64 lambda2)))) (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.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)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	57.3%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 #s(literal 1 binary64) (/.f64 (+.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)))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 lambda2 #s(literal -2 binary64))))))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	27.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) (cos.f64 (-.f64 lambda1 lambda2))) (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))))) #s(literal 2 binary64)))) (+.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 (cos.f64 lambda1) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 lambda1) #s(literal -1 binary64))) (+.f64 (cos.f64 phi1) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (.f64 (.f64 phi2 (sin.f64 phi1)) #s(literal -1/6 binary64))))))))))))))) (*.f64 R #s(literal 2 binary64)))
	49.2%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) #s(literal 1 binary64))) #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) (/.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 #s(literal 1 binary64) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	39.7%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 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)))
	45.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 (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 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)))
	17.3%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (cos.f64 phi2) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 phi1 phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (.f64 phi2 phi2))))))))) (*.f64 R #s(literal 2 binary64)))
	19.2%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (cos.f64 phi2) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2)))))))) (.f64 R #s(literal 2 binary64)))
	46.3%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (.f64 (cos.f64 phi1) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64)))))))) (.f64 R #s(literal 2 binary64)))
	9.3%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))))) #s(literal 2 binary64)))) (sqrt.f64 (.f64 (-.f64 (.f64 (sin.f64 phi1) #s(literal 1/12 binary64)) (/.f64 (-.f64 (.f64 (cos.f64 phi1) #s(literal -1/4 binary64)) (/.f64 (-.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 phi1)) (/.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1 binary64)))))) phi2)) phi2)) phi2)) (.f64 #s(literal -1 binary64) (.f64 phi2 (.f64 phi2 phi2)))))) (.f64 R #s(literal 2 binary64)))
	4.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 (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))))) #s(literal 2 binary64)))) (sqrt.f64 (.f64 (-.f64 (.f64 (sin.f64 phi1) #s(literal 1/12 binary64)) (/.f64 (+.f64 (.f64 (cos.f64 phi1) #s(literal -1/4 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 phi1) phi2))) phi2)) (.f64 #s(literal -1 binary64) (.f64 phi2 (.f64 phi2 phi2)))))) (*.f64 R #s(literal 2 binary64)))
	8.5%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))))) #s(literal 2 binary64)))) (sqrt.f64 (.f64 (.f64 phi2 (.f64 phi2 phi2)) (+.f64 (.f64 #s(literal -1/12 binary64) (sin.f64 phi1)) (/.f64 (.f64 (cos.f64 phi1) #s(literal -1/4 binary64)) phi2))))) (*.f64 R #s(literal 2 binary64)))
	10.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 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))))) #s(literal 2 binary64)))) (sqrt.f64 (.f64 (.f64 #s(literal -1/12 binary64) (.f64 phi2 (.f64 phi2 phi2))) (sin.f64 phi1)))) (.f64 R #s(literal 2 binary64)))
	26.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 (+.f64 #s(literal 1 binary64) (cos.f64 lambda2)) (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.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)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	57.3%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (/.f64 #s(literal 1 binary64) (+.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)))))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	57.1%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (/.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	57.2%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (-.f64 (.f64 (cos.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	57.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 (.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.3%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2))) (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)))
	57.0%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #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)))
	57.7%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	40.4%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #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 (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.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)))
	45.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 lambda1) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	38.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 (.f64 lambda1 (sin.f64 (-.f64 #s(literal 0 binary64) lambda2))) (cos.f64 lambda2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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.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) #s(literal 1 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))))))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	46.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 #s(literal 1 binary64) (cos.f64 phi2)) (/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	36.5%	(.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) (/.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	41.5%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (sin.f64 phi1)))) (.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	34.6%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.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)))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	58.1%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (+.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal -1/2 binary64))) (.f64 (cos.f64 phi2) (.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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	57.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 phi2) (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (-.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	57.6%	(.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 phi2) (.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 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	45.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 phi2) (.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 (pow.f64 (sin.f64 (.f64 lambda1 #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 R #s(literal 2 binary64)))
	42.6%	(.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 phi2) (.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 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	0.0%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) #s(literal -1/2 binary64))) (.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))) (.f64 R #s(literal 2 binary64)))
	38.9%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) #s(literal -1/2 binary64))) (.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	44.8%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) #s(literal -1/2 binary64))) (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	36.5%	(.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)))
	42.8%	(.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)))
	47.5%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (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) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	42.9%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.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))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (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) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	44.2%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.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 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	43.7%	(.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 (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi2 phi2) (+.f64 (.f64 (.f64 phi2 phi2) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (.f64 phi2 phi2)))) #s(literal -1/2 binary64)))) (cos.f64 phi1))) (pow.f64 (-.f64 (.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	58.5%	(.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 (/.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))) (-.f64 #s(literal 0 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 (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) (.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))) (-.f64 #s(literal 0 binary64) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	62.7%	(.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 (-.f64 (.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal -1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))) (.f64 R #s(literal 2 binary64)))
	43.3%	(.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 (-.f64 (.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi2 phi2) (+.f64 (.f64 (.f64 phi2 phi2) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (.f64 phi2 phi2)))) #s(literal -1/2 binary64)))) (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)))
	44.5%	(.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 (-.f64 (.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi2 phi2))) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	79.4%	(.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 (-.f64 (.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (fma.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	79.4%	(.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 (-.f64 (.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (/.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 #s(literal 0 binary64) (.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) (-.f64 #s(literal 0 binary64) (.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))))) (-.f64 (.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) (-.f64 #s(literal 0 binary64) (.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	75.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 (-.f64 (.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (/.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 #s(literal 0 binary64) (.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #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 (-.f64 #s(literal 0 binary64) (.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) (-.f64 #s(literal 0 binary64) (.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64)))))) (.f64 (.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) (-.f64 #s(literal 0 binary64) (.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	62.4%	(.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 (-.f64 (.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (/.f64 #s(literal 1 binary64) (/.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	79.4%	(.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 (-.f64 (.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (-.f64 (.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.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 R #s(literal 2 binary64)))
	35.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 (-.f64 (.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (+.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 R #s(literal 2 binary64)))
	45.0%	(.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 (-.f64 (.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	51.1%	(.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 (-.f64 (.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	49.1%	(.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 (-.f64 (.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) #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)))
	54.5%	(.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 (-.f64 (.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 #s(literal 1 binary64) (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)))
	51.1%	(.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 (-.f64 (.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.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 R #s(literal 2 binary64)))
	45.7%	(.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 (-.f64 (.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.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)))) (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 R #s(literal 2 binary64)))
	51.6%	(.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 (-.f64 (.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.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)))) (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 #s(literal 2 binary64)))
	61.9%	(.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 (-.f64 (.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) (.f64 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) #s(literal 1 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	62.0%	(.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 (-.f64 (.f64 #s(literal 1 binary64) (sin.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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	32.8%	(.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 phi2 #s(literal -1/2 binary64))) #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 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	48.1%	(.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) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #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 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	38.7%	(.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) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	43.0%	(.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) (.f64 (.f64 (cos.f64 phi1) #s(literal 1 binary64)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	41.8%	(.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) (.f64 (.f64 #s(literal 1 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	61.8%	(.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) (.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (+.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 R #s(literal 2 binary64)))
	61.8%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))) (*.f64 R #s(literal 2 binary64)))
	50.8%	(.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) #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 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	42.9%	(.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) #s(literal 1 binary64))) (pow.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 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	43.5%	(.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 #s(literal 1 binary64) (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) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	33.5%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.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)))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	43.2%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
	35.4%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	36.9%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	38.2%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) (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 phi1 #s(literal -1/8 binary64))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (/.f64 (.f64 phi1 (+.f64 (sin.f64 #s(literal 0 binary64)) (sin.f64 (.f64 phi2 #s(literal -1 binary64))))) #s(literal 2 binary64)) (+.f64 (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi2 #s(literal -1 binary64)))))))))) (.f64 #s(literal 2 binary64) R))
	38.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)))
	45.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 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(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.9%	(.f64 (atan2.f64 (sqrt.f64 (+.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))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	57.3%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.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)))
	41.6%	(.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)))
	44.7%	(.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 (.f64 (-.f64 lambda1 lambda2) #s(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.6%	(.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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64)))
	57.1%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.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 (-.f64 lambda2 lambda1) #s(literal -2 binary64)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))) (.f64 R #s(literal 2 binary64)))
	44.8%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (/.f64 (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 phi1))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (*.f64 R #s(literal 2 binary64)))
	57.3%	(.f64 (atan2.f64 (exp.f64 (.f64 (log.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) #s(literal 1/2 binary64))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
	55.1%	(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (+.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 lambda1 #s(literal 1/2 binary64))) #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 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (-.f64 #s(literal 1 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)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
	54.8%	(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (+.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) lambda2)) #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 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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) 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) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
	49.8%	(.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 (+.f64 #s(literal 1 binary64) (.f64 (.f64 phi1 phi1) (+.f64 (.f64 (.f64 phi1 phi1) #s(literal 1/384 binary64)) #s(literal -1/8 binary64)))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 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)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
	58.5%	(.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 lambda1 #s(literal 1/2 binary64))) #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) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
	42.9%	(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 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)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/8 binary64) (.f64 phi1 phi1))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
	61.7%	(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 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)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 #s(literal 1 binary64) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
	60.9%	(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 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)))) (pow.f64 (-.f64 (.f64 #s(literal 1 binary64) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
	59.4%	(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) #s(literal 1 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
	53.8%	(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 #s(literal 1 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
	57.8%	(.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) 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) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
	60.4%	(.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) #s(literal 1 binary64)) (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) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
	55.9%	(.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 #s(literal 1 binary64) (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) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
	63.4%	(.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 #s(literal 1 binary64) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 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)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
	63.2%	(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1 binary64) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 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)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
	58.4%	(.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 #s(literal 2 binary64) (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (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) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
	44.3%	(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) #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) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
	49.5%	(.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))) (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #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) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
	53.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (.f64 lambda2 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (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 #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 #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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 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))))))))))
	8.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (.f64 (.f64 phi1 phi1) (-.f64 (.f64 #s(literal 1/8 binary64) (sin.f64 (.f64 phi2 #s(literal -1/2 binary64)))) (/.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))) (/.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) phi1)) phi1))) (sqrt.f64 (-.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 (.f64 (cos.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))))))))
	5.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (.f64 (.f64 #s(literal 1/8 binary64) (.f64 phi1 phi1)) (sin.f64 (.f64 phi2 #s(literal -1/2 binary64)))) (sqrt.f64 (-.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 (.f64 (cos.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))))))))
	79.4%	(.f64 R (.f64 #s(literal 2 binary64) (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 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (-.f64 #s(literal 0 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 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 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))))))))))
	79.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.f64 (/.f64 phi1 #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))))) (-.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))) (-.f64 #s(literal 0 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 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 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))))))))))
	75.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (/.f64 phi2 #s(literal 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))) (-.f64 #s(literal 0 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 (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (-.f64 #s(literal 0 binary64) (sin.f64 (/.f64 phi2 #s(literal 2 binary64)))))) (.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))) (-.f64 #s(literal 0 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 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 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))))))))))
	62.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	55.2%	(.f64 R (.f64 #s(literal 2 binary64) (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 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 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))) (.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)))))) (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	54.5%	(.f64 R (.f64 #s(literal 2 binary64) (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 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 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))) (.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)))))) (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 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	54.9%	(.f64 R (.f64 #s(literal 2 binary64) (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 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (.f64 lambda2 #s(literal -1/2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 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))))))))))
	52.1%	(.f64 R (.f64 #s(literal 2 binary64) (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 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 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)) (+.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))))))))))
	39.0%	(.f64 R (.f64 #s(literal 2 binary64) (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 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 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)) (*.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))))))))))
	60.3%	(.f64 R (.f64 #s(literal 2 binary64) (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 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 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 lambda2 #s(literal -1/2 binary64))))))))))
	61.6%	(.f64 R (.f64 #s(literal 2 binary64) (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 (sin.f64 (/.f64 phi2 #s(literal 2 binary64))) (cos.f64 (/.f64 phi1 #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 #s(literal 1 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))))))))))
	57.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 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))))))))))
	58.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 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))))))))))
	38.9%	(.f64 R (.f64 #s(literal 2 binary64) (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 (.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi1))) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))
	33.8%	(.f64 R (.f64 #s(literal 2 binary64) (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))))
	33.2%	(.f64 R (.f64 #s(literal 2 binary64) (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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))) (+.f64 (.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (.f64 #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 (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.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 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 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
	31.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 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)))))))))
	39.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64)))))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))))
	24.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 #s(literal 1/2 binary64) (.f64 phi1 phi2))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))))
	33.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.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 lambda1 lambda2))) #s(literal 2 binary64)))))))
	50.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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 (.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)))))))))
	7.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 (neg.f64 phi1) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))))))
	38.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 phi1 (-.f64 (-.f64 (/.f64 #s(literal 1 binary64) phi1) (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal -1/2 binary64))))) (+.f64 (/.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) phi1) (/.f64 (pow.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) phi1))))))))
	41.6%	(.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 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 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))))))))))
	47.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (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 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	29.6%	(.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 (-.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 (.f64 (cos.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.3%	(.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 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 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))))))))))
	58.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 phi2) (.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 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 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))))))))))
	31.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (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)))) (sqrt.f64 (-.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 (.f64 (cos.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))))))))
	44.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 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 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))))))))))
	27.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 phi1 phi1)) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 (sin.f64 (.f64 phi2 #s(literal -1/2 binary64))) (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))))))))

Compiler

Compiled 36438 to 9345 computations (74.4% saved)

regimes1.7s (3.6%)

Counts

299 → 1

Calls

Call 1

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

Outputs

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

Calls

12 calls:

141.0ms	lambda1
114.0ms	phi1
113.0ms	(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
112.0ms	R
105.0ms	(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))

Results

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

Compiler

Compiled 296 to 142 computations (52% saved)

regimes1.5s (3.2%)

Counts

258 → 3

Calls

Call 1

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

Outputs

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

Calls

12 calls:

119.0ms	(-.f64 lambda1 lambda2)
94.0ms	(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
93.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))))))))))
92.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))))))))
92.0ms	lambda2

Results

Accuracy	Segments	Branch
78.2%	3	`lambda1`
70.2%	3	`phi1`
78.2%	3	`lambda2`
72.3%	3	`phi2`
63.4%	1	`R`
65.6%	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))))))))))
67.6%	3	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`
67.5%	3	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
67.5%	3	`(-.f64 lambda1 lambda2)`
66.9%	2	(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
66.9%	2	(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
66.2%	2	`(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))`

Compiler

Compiled 296 to 142 computations (52% saved)

regimes625.0ms (1.3%)

Counts

257 → 3

Calls

Call 1

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

Outputs

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

Calls

2 calls:

93.0ms	lambda2
66.0ms	lambda1

Results

Accuracy	Segments	Branch
73.9%	3	`lambda1`
72.1%	3	`lambda2`

Compiler

Compiled 12 to 10 computations (16.7% saved)

regimes945.0ms (2%)

Counts

256 → 3

Calls

Call 1

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

Outputs

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

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

Calls

6 calls:

95.0ms	phi1
95.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)))))))))
85.0ms	phi2
85.0ms	lambda1
70.0ms	lambda2

Results

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

Compiler

Compiled 158 to 69 computations (56.3% saved)

regimes724.0ms (1.5%)

Counts

237 → 3

Calls

Call 1

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

Outputs

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

Calls

4 calls:

85.0ms	phi1
80.0ms	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
79.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)))))
65.0ms	phi2

Results

Accuracy	Segments	Branch
67.5%	3	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`
67.1%	3	`phi1`
63.4%	1	`(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))`
67.3%	3	`phi2`

Compiler

Compiled 56 to 38 computations (32.1% saved)

regimes1.2s (2.6%)

Counts

235 → 1

Calls

Call 1

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

Outputs

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

Calls

9 calls:

119.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))))))))
103.0ms	phi2
97.0ms	phi1
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))))))))))
89.0ms	(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))

Results

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

Compiler

Compiled 278 to 127 computations (54.3% saved)

regimes1.6s (3.3%)

Counts

232 → 1

Calls

Call 1

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

Outputs

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

Calls

12 calls:

114.0ms	phi2
106.0ms	(-.f64 lambda1 lambda2)
100.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))))))))))
97.0ms	(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
95.0ms	R

Results

Accuracy	Segments	Branch
63.2%	1	`lambda2`
63.2%	1	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
63.2%	1	`(-.f64 lambda1 lambda2)`
63.2%	1	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`
63.2%	1	`R`
63.2%	1	`phi2`
63.2%	1	`lambda1`
63.2%	1	`phi1`
63.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))))))))))
63.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)))))))))
63.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))))))))
63.2%	1	`(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))`

Compiler

Compiled 296 to 142 computations (52% saved)

regimes1.5s (3.2%)

Counts

231 → 1

Calls

Call 1

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

Calls

12 calls:

113.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))))))))
101.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))))))))))
101.0ms	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
97.0ms	(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
94.0ms	(-.f64 lambda1 lambda2)

Results

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

Compiler

Compiled 296 to 142 computations (52% saved)

regimes1.2s (2.5%)

Counts

209 → 1

Calls

Call 1

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

Outputs

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

Calls

12 calls:

91.0ms	phi2
87.0ms	phi1
82.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)))))
80.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)))))))))
80.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
62.7%	1	`phi1`
62.7%	1	`phi2`
62.7%	1	`(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))`
62.7%	1	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`
62.7%	1	`lambda2`
62.7%	1	(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
62.7%	1	(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
62.7%	1	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
62.7%	1	`(-.f64 lambda1 lambda2)`
62.7%	1	`R`
62.7%	1	`lambda1`
62.7%	1	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))

Compiler

Compiled 296 to 142 computations (52% saved)

regimes754.0ms (1.6%)

Counts

151 → 1

Calls

Call 1

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

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:

77.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)))))))))
77.0ms	phi2
76.0ms	(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
58.0ms	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
56.0ms	lambda2

Results

Accuracy	Segments	Branch
61.8%	1	`lambda2`
61.8%	1	`phi2`
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	`(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	`R`
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	`phi1`
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	`lambda1`

Compiler

Compiled 296 to 142 computations (52% saved)

regimes329.0ms (0.7%)

Counts

63 → 1

Calls

Call 1

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

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

Calls

8 calls:

41.0ms	lambda1
35.0ms	phi1
34.0ms	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
32.0ms	R
23.0ms	(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))

Results

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

Compiler

Compiled 59 to 48 computations (18.6% saved)

regimes338.0ms (0.7%)

Counts

62 → 1

Calls

Call 1

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

Outputs

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

Calls

8 calls:

54.0ms	phi2
29.0ms	lambda1
24.0ms	(-.f64 lambda1 lambda2)
18.0ms	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
16.0ms	R

Results

Accuracy	Segments	Branch
61.8%	1	`phi2`
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	`lambda2`
61.8%	1	`R`
61.8%	1	`lambda1`
61.8%	1	`phi1`

Compiler

Compiled 59 to 48 computations (18.6% saved)

regimes235.0ms (0.5%)

Counts

60 → 1

Calls

Call 1

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

Outputs

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

Calls

8 calls:

26.0ms	phi1
25.0ms	(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
25.0ms	phi2
24.0ms	R
22.0ms	lambda2

Results

Accuracy	Segments	Branch
61.8%	1	`phi2`
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	`R`
61.8%	1	`lambda2`
61.8%	1	`lambda1`
61.8%	1	`phi1`

Compiler

Compiled 59 to 48 computations (18.6% saved)

regimes247.0ms (0.5%)

Counts

59 → 1

Calls

Call 1

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

Outputs

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

Calls

8 calls:

38.0ms	(-.f64 lambda1 lambda2)
32.0ms	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
31.0ms	phi2
20.0ms	(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
18.0ms	lambda1

Results

Accuracy	Segments	Branch
58.9%	1	`phi2`
58.9%	1	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
58.9%	1	`(-.f64 lambda1 lambda2)`
58.9%	1	`R`
58.9%	1	`lambda2`
58.9%	1	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`
58.9%	1	`lambda1`
58.9%	1	`phi1`

Compiler

Compiled 59 to 48 computations (18.6% saved)

regimes164.0ms (0.4%)

Counts

39 → 1

Calls

Call 1

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

8 calls:

43.0ms	lambda2
24.0ms	(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
12.0ms	R
11.0ms	(-.f64 lambda1 lambda2)
11.0ms	lambda1

Results

Accuracy	Segments	Branch
57.3%	1	`phi2`
57.3%	1	`R`
57.3%	1	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`
57.3%	1	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
57.3%	1	`(-.f64 lambda1 lambda2)`
57.3%	1	`lambda1`
57.3%	1	`lambda2`
57.3%	1	`phi1`

Compiler

Compiled 59 to 48 computations (18.6% saved)

regimes65.0ms (0.1%)

Counts

13 → 3

Calls

Call 1

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

Calls

8 calls:

25.0ms	lambda2
7.0ms	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
5.0ms	(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
4.0ms	R
4.0ms	(-.f64 lambda1 lambda2)

Results

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

Compiler

Compiled 59 to 48 computations (18.6% saved)

regimes31.0ms (0.1%)

Counts

6 → 1

Calls

Call 1

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

Calls

4 calls:

18.0ms	lambda1
3.0ms	lambda2
3.0ms	phi2
3.0ms	phi1

Results

Accuracy	Segments	Branch
45.0%	1	`lambda1`
45.0%	1	`lambda2`
45.0%	1	`phi2`
45.0%	1	`phi1`

Compiler

Compiled 24 to 20 computations (16.7% saved)

regimes41.0ms (0.1%)

Counts

5 → 1

Calls

Call 1

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

Outputs

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

Calls

8 calls:

21.0ms	(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
3.0ms	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
2.0ms	lambda1
2.0ms	R
2.0ms	phi2

Results

Accuracy	Segments	Branch
10.1%	1	`R`
10.1%	1	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`
10.1%	1	`phi2`
10.1%	1	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
10.1%	1	`(-.f64 lambda1 lambda2)`
10.1%	1	`lambda1`
10.1%	1	`lambda2`
10.1%	1	`phi1`

Compiler

Compiled 59 to 48 computations (18.6% saved)

regimes13.0ms (0%)

Accuracy

Total 0.0b remaining (0%)

Threshold costs 0b (0%)

Counts

2 → 1

Calls

Call 1

Inputs

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

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

Outputs

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

Calls

6 calls:

5.0ms	R
2.0ms	(-.f64 lambda1 lambda2)
2.0ms	phi2
1.0ms	lambda2
1.0ms	lambda1

Results

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

Compiler

Compiled 38 to 31 computations (18.4% saved)

bsearch218.0ms (0.5%)

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
113.0ms	2.3146301132650523e-7	0.011588270586829924
85.0ms	-2.3061264191780464e-7	-2.508836817577687e-8

Results

179.0ms	190×	1	valid
7.0ms	34×	0	valid

Compiler

Compiled 2458 to 1153 computations (53.1% saved)

Precisions

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

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

ival-cos: 49.0ms (29.4% of total)

ival-mult: 15.0ms (9% of total)

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

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

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

backward-pass: 6.0ms (3.6% of total)

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

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

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

const: 1.0ms (0.6% of total)

bsearch287.0ms (0.6%)

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
124.0ms	2.45722495918869e-6	1.053595095765148
114.0ms	-3.2868389097318967e-13	-1.0185296365626938e-21

Results

211.0ms	229×	1	valid
12.0ms	59×	0	valid

Compiler

Compiled 3120 to 1455 computations (53.4% saved)

Precisions

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

ival-cos: 70.0ms (35.4% of total)

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

ival-sub: 25.0ms (12.6% of total)

ival-mult: 24.0ms (12.1% of total)

ival-add: 14.0ms (7.1% of total)

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

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

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

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

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

const: 1.0ms (0.5% of total)

bsearch618.0ms (1.3%)

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
421.0ms	7.684728256968101e-8	0.03469845073737431
171.0ms	-17.635287323047923	-4.731327686600295e-35

Results

268.0ms	264×	1	valid
12.0ms	56×	0	valid

Compiler

Compiled 3278 to 1593 computations (51.4% saved)

Precisions

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

ival-sin: 88.0ms (35% of total)

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

ival-sub: 31.0ms (12.3% of total)

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

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

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

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

ival-div: 8.0ms (3.2% of total)

ival-pow: 7.0ms (2.8% of total)

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

const: 1.0ms (0.4% of total)

bsearch9.0ms (0%)

Algorithm

2×	left-value

Steps

Time	Left	Right
0.0ms	0.10324057227256138	0.10862602852104374
0.0ms	-0.10483286554893499	-0.09344426316777839

Compiler

Compiled 63 to 34 computations (46% saved)

bsearch254.0ms (0.5%)

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
118.0ms	0.10597680063479618	2506.459209182834
116.0ms	-1.8994737035850287e-5	-3.983048450478346e-10

Results

197.0ms	208×	1	valid
25.0ms	48×	0	valid

Compiler

Compiled 1998 to 1217 computations (39.1% saved)

Precisions

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

ival-sin: 61.0ms (32.8% of total)

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

ival-mult: 24.0ms (12.9% of total)

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

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

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

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

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

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

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

const: 1.0ms (0.5% of total)

simplify72.0ms (0.2%)

Algorithm

1×	egg-herbie

Rules

632×	`unsub-neg_binary64`
334×	`neg-mul-1_binary64`
270×	`*-commutative_binary64`
228×	`+-commutative_binary64`
206×	`distribute-neg-out_binary64`

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	292	1639
1	539	1639
2	710	1639
3	851	1639
4	940	1639
5	992	1639
6	1030	1639
7	1063	1639
8	1336	1639
9	1675	1639
10	1678	1639

Stop Event

1×

saturated

Calls

Call 1

Inputs
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 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)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 lambda2 #s(literal -1983393922805251/9444732965739290427392 binary64)) (.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) 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) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 lambda2 #s(literal 3246626956972881/295147905179352825856 binary64)) (.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 lambda1 #s(literal 1/2 binary64))) #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) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 #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) 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) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 -2614529362970723/79228162514264337593543950336 binary64)) (.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 #s(literal 1 binary64) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 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)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 8500259669165361/2361183241434822606848 binary64)) (.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) 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) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 #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 #s(literal 1 binary64) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 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)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 phi2 #s(literal -4486248158726163/2361183241434822606848 binary64)) (.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 #s(literal 1 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 phi2 #s(literal 3910709743626425/36893488147419103232 binary64)) (.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64))) (.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 #s(literal 1 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #s(literal -3602879701896397/36028797018963968 binary64)) (.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1 binary64) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 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)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #s(literal 7566047373982433/72057594037927936 binary64)) (.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 #s(literal 1 binary64) (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) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1 binary64) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 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)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 #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 #s(literal 1 binary64) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 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)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1 binary64) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 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)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (-.f64 (.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal -1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))) (.f64 R #s(literal 2 binary64)))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 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 phi2) (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))))
(.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) (.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (+.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 R #s(literal 2 binary64)))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) #s(literal -1 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))) (.f64 R #s(literal 2 binary64)))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(if (<=.f64 phi1 #s(literal -5902958103587057/1180591620717411303424 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))) (if (<=.f64 phi1 #s(literal 7638104968020361/72057594037927936 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 #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 phi1) #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) (/.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))))) #s(literal 2 binary64)))) (sqrt.f64 (.f64 (.f64 #s(literal -1/12 binary64) (.f64 phi2 (.f64 phi2 phi2))) (sin.f64 phi1)))) (.f64 R #s(literal 2 binary64)))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) #s(literal -1/2 binary64))) (.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))) (.f64 R #s(literal 2 binary64)))

Outputs
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 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)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 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)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (.f64 #s(literal 2 binary64) R))
(if (<=.f64 lambda2 #s(literal -1983393922805251/9444732965739290427392 binary64)) (.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) 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) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 lambda2 #s(literal 3246626956972881/295147905179352825856 binary64)) (.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 lambda1 #s(literal 1/2 binary64))) #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) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 #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) 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) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 lambda2 #s(literal -1983393922805251/9444732965739290427392 binary64)) (.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (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) 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) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (.f64 #s(literal 2 binary64) R)) (if (<=.f64 lambda2 #s(literal 3246626956972881/295147905179352825856 binary64)) (.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 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)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (.f64 #s(literal 2 binary64) R)) (.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (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) 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) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (.f64 #s(literal 2 binary64) R))))
(if (<=.f64 lambda1 #s(literal -2614529362970723/79228162514264337593543950336 binary64)) (.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 #s(literal 1 binary64) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 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)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 8500259669165361/2361183241434822606848 binary64)) (.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) 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) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 #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 #s(literal 1 binary64) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 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)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 -2614529362970723/79228162514264337593543950336 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 lambda1))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) #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) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (.f64 #s(literal 2 binary64) R)) (if (<=.f64 lambda1 #s(literal 8500259669165361/2361183241434822606848 binary64)) (.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (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) 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) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (.f64 #s(literal 2 binary64) R)) (.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 lambda1))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) #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) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (.f64 #s(literal 2 binary64) R))))
(if (<=.f64 phi2 #s(literal -4486248158726163/2361183241434822606848 binary64)) (.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 #s(literal 1 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 phi2 #s(literal 3910709743626425/36893488147419103232 binary64)) (.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 R #s(literal 2 binary64))) (.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 #s(literal 1 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 phi2 #s(literal -4486248158726163/2361183241434822606848 binary64)) (.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (.f64 #s(literal 2 binary64) R)) (if (<=.f64 phi2 #s(literal 3910709743626425/36893488147419103232 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 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 lambda1 #s(literal 2 binary64))) (cos.f64 (/.f64 lambda2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 lambda1 #s(literal 2 binary64))) (sin.f64 (/.f64 lambda2 #s(literal 2 binary64))))) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) R)) (.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (*.f64 #s(literal 2 binary64) R))))
(if (<=.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #s(literal -3602879701896397/36028797018963968 binary64)) (.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1 binary64) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 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)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #s(literal 7566047373982433/72057594037927936 binary64)) (.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 #s(literal 1 binary64) (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) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1 binary64) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 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)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #s(literal -3602879701896397/36028797018963968 binary64)) (.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))) (pow.f64 (-.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #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) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))) (if (<=.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #s(literal 7566047373982433/72057594037927936 binary64)) (.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 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (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) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))) (.f64 (.f64 #s(literal 2 binary64) R) (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 lambda1))) #s(literal 2 binary64))) (pow.f64 (-.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #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) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))))
(.f64 (.f64 #s(literal 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 #s(literal 1 binary64) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 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)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 (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 lambda1))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) #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) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (.f64 #s(literal 2 binary64) R))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 #s(literal 1 binary64) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (-.f64 lambda2 lambda1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 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)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 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 #s(literal 2 binary64) R) (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 lambda1))) #s(literal 2 binary64))) (pow.f64 (-.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #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) (-.f64 lambda2 lambda1))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.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 #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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(.f64 R (.f64 #s(literal 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 (.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 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (-.f64 (.f64 (cos.f64 (/.f64 phi2 #s(literal 2 binary64))) (sin.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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal -1/2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))) (.f64 R #s(literal 2 binary64)))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (sin.f64 (/.f64 phi1 #s(literal 2 binary64))) (cos.f64 (/.f64 phi2 #s(literal 2 binary64)))) (.f64 (cos.f64 (/.f64 phi1 #s(literal 2 binary64))) (sin.f64 (/.f64 phi2 #s(literal 2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.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 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) #s(literal 2 binary64)))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 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 phi2) (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))))
(.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) (.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (+.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 R #s(literal 2 binary64)))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) #s(literal -1/2 binary64))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))) (*.f64 R #s(literal 2 binary64)))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.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 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))))
(.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 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 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 lambda1 lambda2))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.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 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi1 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))
(if (<=.f64 phi1 #s(literal -5902958103587057/1180591620717411303424 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))) (if (<=.f64 phi1 #s(literal 7638104968020361/72057594037927936 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 #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)))))
(if (<=.f64 phi1 #s(literal -5902958103587057/1180591620717411303424 binary64)) (.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) #s(literal 2 binary64)))))) (if (<=.f64 phi1 #s(literal 7638104968020361/72057594037927936 binary64)) (.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi2))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi2))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) #s(literal 2 binary64)))))) (.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) #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 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (cos.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 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))))) #s(literal 2 binary64)))) (sqrt.f64 (.f64 (.f64 #s(literal -1/12 binary64) (.f64 phi2 (.f64 phi2 phi2))) (sin.f64 phi1)))) (.f64 R #s(literal 2 binary64)))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))))) (/.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))))) #s(literal 2 binary64)))) (sqrt.f64 (.f64 (.f64 #s(literal -1/12 binary64) (.f64 phi2 (.f64 phi2 phi2))) (sin.f64 phi1)))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) #s(literal -1/2 binary64))) (.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal -1/2304 binary64))))) (.f64 R #s(literal 2 binary64)))
(.f64 (.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) #s(literal -1/2 binary64))) (.f64 (cos.f64 phi2) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))))))) (.f64 (.f64 phi2 (.f64 phi2 phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sqrt.f64 #s(literal -1/2304 binary64))))))

soundness5.1s (11%)

Rules

7464×	`-lowering-.f32`
7464×	`-lowering-.f64`
7000×	`-lowering-.f32`
7000×	`-lowering-.f64`
6264×	`-lowering-.f32`

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	1837	70959
1	6312	70347
0	8090	70347
0	1189	61087
1	3875	59169
0	8518	59169
0	41	416
1	223	398
2	1936	388
0	11141	388
0	117	1214
1	687	1066
2	6731	1066
0	8060	1066
0	707	25470
1	2441	24860
0	8956	24860
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	111	1018
1	676	774
2	6060	774
0	8460	774
0	1576	58512
1	5174	58047
0	8422	58047

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 3971 to 1259 computations (68.3% saved)

preprocess268.0ms (0.6%)

Remove: (negabs R)
Compiler: Compiled 6720 to 1640 computations (75.6% saved)

analyze1.5s (3.3%)

sample7.6s (16.2%)

preprocess243.0ms (0.5%)

explain709.0ms (1.5%)

eval1.0ms (0%)

prune2.0ms (0%)

simplify161.0ms (0.3%)

localize579.0ms (1.2%)

series161.0ms (0.3%)

rewrite490.0ms (1%)

simplify592.0ms (1.3%)

eval224.0ms (0.5%)

prune410.0ms (0.9%)

simplify274.0ms (0.6%)

localize1.3s (2.7%)

series366.0ms (0.8%)

rewrite429.0ms (0.9%)

simplify1.2s (2.6%)

eval582.0ms (1.2%)

prune611.0ms (1.3%)

simplify292.0ms (0.6%)

localize830.0ms (1.8%)

series314.0ms (0.7%)

rewrite293.0ms (0.6%)

simplify905.0ms (1.9%)

eval504.0ms (1.1%)

prune782.0ms (1.7%)

simplify282.0ms (0.6%)

localize996.0ms (2.1%)

series850.0ms (1.8%)

rewrite389.0ms (0.8%)

simplify1.3s (2.7%)

eval425.0ms (0.9%)

prune1.2s (2.6%)

regimes1.7s (3.6%)

regimes1.5s (3.2%)

regimes625.0ms (1.3%)

regimes945.0ms (2%)

regimes724.0ms (1.5%)

regimes1.2s (2.6%)

regimes1.6s (3.3%)

regimes1.5s (3.2%)

regimes1.2s (2.5%)

regimes754.0ms (1.6%)

regimes329.0ms (0.7%)

regimes338.0ms (0.7%)

regimes235.0ms (0.5%)

regimes247.0ms (0.5%)

regimes164.0ms (0.4%)

regimes65.0ms (0.1%)

regimes31.0ms (0.1%)

regimes41.0ms (0.1%)

regimes13.0ms (0%)

bsearch218.0ms (0.5%)

bsearch287.0ms (0.6%)

bsearch618.0ms (1.3%)

bsearch9.0ms (0%)

bsearch254.0ms (0.5%)

simplify72.0ms (0.2%)

soundness5.1s (11%)

preprocess268.0ms (0.6%)

end0.0ms (0%)

Profiling